HAL/i800 1.3F; 0000 SDOSDRIVERS 
01/14/83 il:39!33j Page 1; Fora 
lOJUPITER.ASH 



m SDOS I/O drivers for.Havellate Jupiter II iC! 1978 SOFfflARE DYNAillCS tU 
Oupiter II Hardware Configuration Definitions 



0000 

003C 
8400 

0001 

0002 
0001 
0001 

0002 

0001 
0001 
0001 

0800 

0000 
0000 



5 

h 

7 

8 

9 

10 

U 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 



Listdefs equ 
i 

nsmize equ 

code equ 



don't list SDQS definitions 



&0 
t8400 



VirtualFloppy equ 1 

! 

PerSci equ 2 

iiJKforeiat equ 1 

IBHforaat equ 1 

DAHfloppy equ 2 

I 

Storage&ediDn equ 1 
II1I7710S equ 1 
UseDemonAsClock equ 1 



; K of niemory 

; top of user space 

; Use Virtual (joke) floppy drive 

,' 1 dual persci 

; set up for liH 254 byte forsat. 

I and IBH 3740 forfflat 

; 1 dual DAH floppy drive 

l Standard Storage Deion 
I IHI 77105 

; Use Demon interface as clock 






/l^ 



DesiredPooISize equ 512*4 ; so poolsize is 3 sectors -> readahead happens 



U 77li 



InBufSizB!iffc4 equ 
LineBufSi2e:$ffc4 squ 



5 line printer doesn't need input buffer 
I line printer doesn't need line buffer 



HO 



tml ^^*^ 
cBim 

ZCFO 









J^^f^^ SrC^ i\2.lp 









HAL/i800 i.3F: 
01/14/83 11:39 
lOJUPITER.ASH 

0001 
OOOi 



0001 
0001 
0000 
0000 



0000 SDQSDRIVERS 
[33 J Page 2: Fora 1 



m SDOS 1/0 drivers for iaveHate Jupiter II id 
Jupiter II Hardware ConHguration Minitions 



1978 SOFTBARE DYNAMICS Ut 



0001 



1231 

I?82 



nnnmmmmmmmimumnummmtiumtmmmmum 

JUPITERII EQU 1 THIS I/O PACKA6E IS FOR A JUPITER II! 

WAVEMATE E3U 1 IP'S ON THIS SHOULD BE IP'S ON JUPITERII 

mmmmmmmmnmmmmmtnmnmunmmnmmm 



6: 






9: 


mm 


SOOSDRIVERS 


10: 


I FUND 


N6800 


Hi H6800 


EQU 


1 


12: Hi801 


EQU 





13: H6B09 


EQU 





14; 


FIN 


H6800 


14: 


IF 


H6300i 116801 


17: 


BITH 


LINCLUDE 


18: 


FIN. 




19: 






20: t 






21: t 


BV SOFTWARE DYNAMICS 


111 t 


AND A CAST OF THOUSANDS! 


23: t 






24: EDITMTE E3U 


$1231 /82 HHDD IN HEX FORHAT 


25: EDITYEA 


\ EQU 


$1982 


2h: i 






27: 1 






28: %%mmm%%%tm%%t%%%nm%i%nn%mm%mm%m%m%%x%%m%i% 


29: % I/Q PACKASE STRUCTURE 


30: * The I/O package is organized in the foUosing fashion; 


31: 1 






32: t Law addresses: ! \ 


33: 1 




! Read-only code, ; 


34: % 
35: % 




i tables, etc. ! 






36: » 






37: t 




! Interrupt poll i 


38: * 




! chains i 


39: 1 




, ! {readonly) i 


40: i 

41: 1 










42: % 






43: t 




! Working storage, ! 


44: % 




1 DCBs, TCBs, etc. ! 


45: t 

46: * 










47: % 






48: % 




! Disk Buffer i 


49: » 




! Pool ! 


50: * 




! I/O Driver : 


51: % 




i Reset code ! 


52: * 




i (once-only) ! 


53: 1 
54: % 










55: % 






Ihi % 




! VT Drivers \ 


57: 1 




! SDOS i ' 


58: i 




3 R t S 



«AL/i800 i.3F! 0000 SBOSDRIVERS 
01/14/83 il:39:33f Page 3| Form 1 
IDJUPITER.fiSH 

59! * 

ibO: t 

hi 

62: t 

65! * 

64! * 

65! t 

66: i 

67: » 

68: i 

69: i 

■70: i 

71: * 

72: t 

73: * 

74: t 

75: * 

76: t 

77: i 

78 

79: I 

80 

81: $ 

82: t 



84; 

85 
86 
87 
88 

89; 

90 

91 

92 

93 

94 

95; 

96 

.97 

98 

99 

100 

iOli 

102 



103: * 



104 
105; 
106 
107 
108 
109 
ItO 
111 
112 
113 



It* SBOS I/O drivers for Savefiate Jupiter II !Ci 197S SOFTWARE SYNArllCS tU 
Jupiter II Hardware Configuration Definitions 



To make this arrangeatent possible, each I/O package source is 
organized in the fallo»ing Hay: 

IQxxsKX.BO is a file containing a configuration 

for machine xxxxx 
lOxsxxs.DO is a file containing an I/O package "shell" 
lOyyyyy.ASH is a file containing ALL driver-related code 
tables, etc. for the hardware device yyyyyy 

Each I/O package shell uses conditional assembly switches to conditionally 
li^CLUDE lOyyyyy.ASH in a particular configuration. The lOyyyyy.ASH 
file is actually INCLUDEd 4 tiieSj once for each of the 4 areas of 
the I/O package shown above. The following conditional switches 
ire used by the driver source aodule to distinguish between areas: 



IQDRIVERBDDY 
IQDRIVERPDLL 
lOBRIVERRAH 

IQDRIVERISIT 



selects the read-only code portion 

selects the Interrupt poll chain portion 

selects read/write storage of driver 

selects the once-only i/0 driver initializing code 



Note: the driver source sodule should define all equates and (BC3) 
table displacements when the conditional switch IQBRIVERBODY is enabled. 



A Typical shell has the following source forni: 



SET DEFAULTS 

IFUKD 

IFONB 

BUILD READ-ONLY CODE 



IQBRIVERBODY 
lODRIVERPOLL 
lOSRIVERRAH 
lOBRIVERiNIT 

IF 

INCLUDE 

FIN 

IF 

INCLUDE 

FIN 



xxxx 

yyyy 



SET 1 
SET 
SET 
SET 

XKXX 

lOsxsK.ASH 

yyyy 

lOyyyy.ASH 



RTP zzii 



PATCHSPACE 
SSI 

tlltl Build Interrupt Poll Chains 
lODRIVERBOBY SET 

lOBRIVERPOLL SET 1 

IF xsxx Note: order of poll routines inay fee different than bodies 

INCLOSE IQxxxx.ASH 

FIN 

IF yyyy 

INCLUDE lOyyyy.ftSft 

FIN . 



UW Build llorkina Storage 
lODRIVERPOLL 



SET 



«AL/68i}0 1.3F! 0000 SCDSDRIVERS m SD08 i/0 drivers for HaveHate Jupiter ii (C) 1978 SOFTMARE BVNftMICB tU 

01/14/83 ilr3?;33,- Page 4; Form I Jupiter II Harrfsare ConHguration Minitions 

lOJUPITER.ASM 

114: I • lODRIVERRAH SET 1 

liSi I IF KXXK 

116: * INCLUDE IDxsxx.ftSM 

117: J FIN 

1181 t IF nu 

119: t IF yyyy 

120: t INCLUDE lOyyyy.ASH 

121: t FIN 

122: * 

123: t tun Build Driver Reset routines 

124; t lODRIVERRAH SET 

125: * lOSRIVERINIT SET 1 

126: t IF nu , 

127: i INCLUDE lOxstxx.ASM 

128: t FIN 

129: t IF yyyy 

130: * INCLUDE IDyyyy.ASH 

131: « FIN 

132: t 

133: * UUt Finish out disk buffer pool, etc 

134: I 

135: I END 



HAL/iBOO 1.3F! 0000 SD03DRIVERS tU SDOS 1/0 drivers for WaveHate Jupiter II (C) 1978 SOFIKARE SYNAHICS tit 

01/14/83 Il!39!33} Page 5; Form 1 Jupiter II Hardware ConHguration Definitions 

lOJUPITER.ASK 

137: t 

FC03 138: INICV EBU $FC03 INITIftLlZE CONSOLE DEVICE VECTOR 

FC06 139: PUTCV E8U $FC06 PUT ft CHARACTER TO CONSOLE VECTOR 

FC09 140: 6ETCV EQU *FC09 SET ft CHARftCTER TO CONSOLE VECTOR 

FCOC 141: TESTCV EQU ' *FC0C TEST FOR ARRIVAL OF CHARftCTER FR0!1 CONSOLE 

FC12 142: INISV ESU $FCi2 INIT DEFAULT DEVICE {FOR LPT) 

FC15 143: PUTDV EGU *FCi5 PUT A CHARACTER TO DEFAULT DEVICE VECTOR 

144: 

OOFE 145; SYSPG E6U $FE 

■ OOFD 146: SYSIIR8 EQU $FD 
147: 
148: 



llftL/6800 1.3F! 0000 SBOSDRIVERS 
01/14/83 11:39! 
IQJUPITER.flSH 
0001 



!3jj 



Page 6; Form 1 



m SBQS I/Q drivers for aavsMate Jupiter II (C) 1978 SQFTiARE DVNAHICS 1*1 
I/Q PACKAGE DEFAULT SWITCHES 



0001 
0000 



0000 
.0000 

0000 



0001 
0000 

0008 



0400 

0001 
0000 



0001 
BEOO 

0001 
AiOO 

0001 



0001 
0001 
8400 
0002 



OOOi 
0000 

0001 
0000 



oeoi 



003C 



150 
151 
152 
153 
154 
155 
156 
169 
170 
172 
173 
174 
17i 
177 
178 
179 
181 
182 

183: 

184 
185i 
186 
187 
183 
189 
190 
196 
197 
198 
199 
200 
201 
202 
203 
204 
222 

223; 

224 

225 

226 

227 

225 

230 

231 

232 

233 

237; 

238; 

239: 

240: 

241: 

242: 

243: 

244: 

245; 



OUTASPACE 



ESU 1 i USE TRIH11E& SEF FILES TO SAVE SYMBOL TABLE SPACE 
j DEFAULT IS "NOT SDQ8/HT" 



IFUND SCOSWT 
SCOSIIT EBU 
FIN 

IF SDOSHT 
FIN SDOSHT 
mm HERSHE 

FIN MEHSiZE 

IFUND DESIREDPOOLSIZE 

m 

mm SiOCHANNELS 

IF SDDSttT 
ELSE 

NIQCHANNELS E8U 
FIN 

FIN NIOCHANNELS 



t 



EQU 1024 

IF 116800 t«630i 
I FUND CODE 
FIN CODE 



i 
SMS 



IFUND SDGS 

EQU HE11SIZEIK-I3200 

FIN SDOS 

IFUND VTDRIVER 

VTDRIVER ESU SDOS-*i800 

FIN 

ELSE fM6809) 

FIN 
i 

IFUND DRIVERBASE 

IF CQDE«SDOS 

DRIVERBASE ESU 

ELSE 

FIN CODE«SDOS 

FIN DRIVERBASE 



I BYTES PER "K" OF MEHORY 



CODE 



IFUND REALTIHECLOCK 

IFUND STORASEDEHON 

ELSE 

IFUND USECONSOLEACIAASCLBCK 
USECQNSOLEACIAASCLOCK ESU IcSTORASEDEKON 

FIN USECQNSOLEACIAASCLOCK ■ 

FIN STORAGEDEMON 
REALTIHECLOCK EQU StUSECOtlSOLEftCIftASCLOCK 

FIN REALTIHECLOCK 



THERE EXISTS A REAL PIECE OF CLOCK HARDMRE" 



TICKSPERSECOND EQU 



iO 



!1ftL/6800 1.3F! 


0000 


SDOSDRIVERS «t SDOS I/O d 


01/14/83 ll!39!33i Page 7; 


Forffl i I/O PACKAGE DEI 


lOJUPITER.ASH 








0001 


24i: 




I FUND CLOCK 


0001 


247: 


CLOCK 


EQU 1 




248j 




FIN 


0001 


249: 




IF CLOCK 


0001 


250: 




mm LisTciocK 


0001 


251: 


LlSTCLOCiC EDO 




252: 




FIN 




253: 




FIN 




254: 






0001 


255: 




I FUND BLAEKHOLE 


0000 


256: 


BL6CKH0LE EQU 




257; 




FIN 


0000 


258: 




IF BLACKHOLE 




262: 




FIN 




263: 






0001 


264: 




IFUNS SDLP 


0000 


265: 


SDLP 


EBli 




266: 




FIN 


0000 


267: 




IF SDLP 




271: 




FIN 




272: 






0000 


273: 




IF'UND VIRTUALFLDPPY 




275: 




FIN VIRTOALFLOPPY 


0001 


276: 




IF VIRTUALFLDPPY 


0001 


277: 




IFUNB LIST.VIRTUALFLQPPY 


0001 


278: 


LIST.VIRTUALFLQPPY EQU 1 




279: 




FIN LiSTVIRTUALFLOPPY 


0000 


280: 




IFUNS PERSCI 




282: 




FIN PERSCI 


0000 


283: 




IFUND DAMFLQPPY 




285: 




FIN DAMFLOPPY 


0002 


286: 




IF PERSCI 


0000 


287: 




IFUNB S^HFORHAT 




289: 




FIN MHFORHAT 


0000 


290: 




IFUND IBHFQRHAT 




292: 




FIN IBHFORHAT 




293: 




FIN PERSCI 




294: 




FIN VIRTUALFLOPPY 


0001 


295: 




IFUNB SHPERSCi 


0000 


296: 


WERSCI Eau 




297: 




FIN 


0000 


29B: 




, IF MHPERSCI 




305; 




FIN 8HPERSCI ' 


0001 


306: 




IFUND SHDAKFLOPPY 


0000 


307? 


BHBAHFLOPPV EBti 




308: 




FIN WHDAHFLOPPY 


0000 


309: 




IF i^HDARFLOPPY 




320: 




FIN UMBAHFLOPPY 




321: 






0000 


322: 




IFUND STQRABESEHQN 




324: 




FIN 


0001 


3253 




IF STQRA8EBEH0N 


0001 


326; 




IFUND LISTST0RA6EDEHQN 


0001 


327: 


LISTST0RA8EBEH0N 




328: 




FIN 



(C) 1978 SOFTMARE DYNAMICS Ut 



E8U 1 



MftL/iBOO i.3F; 


0000 SDOSDRIVERS II* 


01714/83 ii!39:33j Pags 8j 


Foru 1 I/O 


lOJUPITER.ftSM 








329 s 


Pint 




330! 




0000 


331: 


IFUND LISTIiEFS 




333: 


FIN 


0001 


334: IDPKDEFS ESU 1 



S I/O drivers for WaveHate Jupiter .11 iC) 1978 SOFTWARE DYMHICS tit 
I/O PACKA8E DEFAULT SWITCHES 



HAKE SURE SE SET i/Q PACKA6E DEFINITIONS 



t1AL/i800 1.3F! 


041)0 


SDQSBRIVERS 


m SDOS I/O dri 


vers for toveMate Jupiter il (C) 1978 SOFTHARE DVNAii 


ics m 


01/14/83 11539:33, F 


age 9; Form 1 


Virtual Teroinal 


Driver definitions 




lOJUPITER.ftSH 


344! 


» 










345: 


1 SBQS-T0-I0PACKA6E COMHUNiCftTION REGION 






346; 


I 








BEOl 


347: 


ORG 


SDOStl 








348: 


tm FCB 


*!0 


SDOS VERSION NUHBER 




BEOl 0000 


349 


FOB 





LAST ERROR ENCOUNTERED 




BE03 8EBi 


350: 


FDB 


CNFGTABLE 


TELL SDOS mERE ALL THE GOODIES ARE 




BEOS 0000 


351 


FOB 





SERIAL NUHBER 




BE07 0000 


352? 


FDB 





lOBLQCKPTR 




BE09 0000 


353 


FDB 





lOCB POINTER IFOR FILE-TYPE DEVICE DRIVERS) 




BEOB 000000 


354: 


FCB 


0,0,0 


SET CLOCK TO "HIDNITE" 




BEOE 00 


355 


FCB 





DAY, LET COHHAND II^TERPRETER KNO« 




BEOF 00 


356: 


FCB 





MONTH, THAT, THE TINE HASN'T BEEN SET 




BEIO 82 


357 
358: 


FCB 

1 


EDITYEARScJFF 


YEAR 




8400 


359 


ORB 


DRIVERBASE 






8400 7E8400 


360. 
361 


BVSCALLIO 


JHP, 


SYSCALLIQ SDOS SETS JHP ADDR TO ITS ENTRY POINT 




8403 1231 


362. 


FOB 


EDITDATE 


RECORD I/O PACKAGE DATE IN OBJECT FILE 




8405 1982 


363 
364 
365 


FDB 

t 


EDITYEAR 








366 


Um READ OKLV CODE SECTION 






0001 


' 367 


■ lOBRIVERBDDY 


SET 


1 




0000 


368 


IDDRIVERPOLL 


SET 







0000 


369 


' lODRIVERRAH 


SET 







0000 


370 
371 
372 


lOE'RIVERINIT 


SET 









i 








0000 


373 


HEHTCB SET 





END OF TCB CHAIN 




0000 


374 


! NEnTIKEOUT 


SET 







0000 


375 


NEXTDiSKDCB 


SET 







0000 


376 


: (JEXTDEVICEDCB 


SET 







0000 


377 


NTIilEOUTS 


SET 







0000 


378 


: MDISKDCBS 


SET 


■ 




BE15 


379 


INTERRUPTTAR6ET 


SET SDOS+SDOSsRTI ASSilHE CONVENTIONAL INTERRUPT 


SCfiEliE 



HAL/4800 i.3F; 


8405 


SD( 


3SDR 


IVERS . m m 


S I/O drivers for WaveHate Jupiter II m 


01/14/83 lli39!335 Page 


iOj 


Forsi 1 INTERFACE TO IDB 


IQJUPITER.ftSH 












0001 


381: 






IF H6800 




8407 


382! 


DEBUBSYSCALLHANDLER 




8407 34 


383: 






BES 


HAKE SPACE FOR X 


8408 34 


384: 






DES 


HAKE ROOM FOR INDEK RE6ISTER 


0409 34 


385: 






DES 


HAKE ROOH FOR CONTENTS OF (A) 


840A 34 


386: 






DES 


SAVE ACCB 


8408 07 


387: 






TPA 




840C 36 


388: 






PSHA 


SAVE CC BITS 


840D BD8EC4 


389: 






JSR IHTDISABLE 


TURN OFF INTERF^UPTS 


8410 


390: 


DEBUeiNTERRUPT : "d: miUl BLOCK IS ON TOP OF STACK 


8410 FEFFFC 


391: 






LDX $FFFC 


; NHI VECTOR 


8413 im 


392: 






m 0,)! 




0001 


393: 
399: 






ELSE (H6809) 
FIH H6800 




0001 


400: 






IF CLOCK 






401: 






INCLUDE 


lOCLOCK.ASH 


0001 


1: 






IF 


lODRIVERBODY 



MAL/6a00 1.3F: 
,01/14/83 ll!39i 
lOCLOCK.ftSM 
8415 842F 
8417 842F 
8419 8481! 
841B 8EDB 
84 ID 84i9 
841F 8443 
8421 8E5B 
8423 8EDB 
8425 8EDB 
8427 8EDB 
8429 8434 
842B 9E35 
842D ,842F 

842F 

842F 

842F 

342F 0C39 



8431 7E8EDB 

8434 8104 
8436 26F9 
8438 FEBEO? 
843B BDBE36 
843E 0001 
3440 EEOfi 
8442 8iOB 
8444 A700 
8446 0C39 

8448 BDBE39 
844B 0006 
8441) EE04 
844F C606 
8451 A600 

8453 08 

8454 36 

8455 5A 

8456 26F9 , 

8458 01 

8459 OF 
845A CEBEOO 
8451) C606 
845F 32 

8460 A710 

8462 09 ' 

8463 5A 

8464 26F9 

8466 OE 

8467 0C39 



8415 SDOSDRIVERS 
33| Page 11," ForiB 1 



>lt SDOS I/O drivers for WaveHate Jupiter II (C) 1978 SOFTWARE DVNftillCS til 
nt CLOCK.- DRIVER «* 



3 
4 
5 
6 
7 
8 
9 

10 
11 
12 
13 
14 
15 
16 

17; 

18 
19 
20 
21: 
22 
23 
24 
25 
26 
27 
28 
,29 
30 
31 
32 
33; 
34 

35; 

36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 



CLOCKBRIVER 



CLOCKCLOSE 

CLOCKOPEN 

CLOCKPFRESTART 



CL0CKSPRUN8 



CLOCKSTATUS 



CLOCK^RITEB 



CLOCKKBI 



CLQCKWB2 



49s 
50 J 

5l! 

52: 

53i 
54.- 
55j % 
56: % 
57: I 



FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 



ESU 
EBU % 
EQU * 
OKRTS 



JHP 

CHPA 

SNE 

LDX 

JSft 

FDB 

im 

IDAS 

8TAA 
OKRTS 

JSR 

FDB 

LDX 

LDAB 

LDAA 

\m ■ 

PSHA 

BECB 

BNE 

NOP 

SEI 

III 

LDAB 

PULA 

STAA 

BEX 

DECS 

BNE 

CLI 



CLOCKQPEH 

CLOCKCLOSE 

CLOCKREADA 

ILLDEVICEQP 

CLOCKREABB 

CLOCKHRITEB 

ILLDEVICEQP 

ILLDEVICEOP 

iLLDEVICEOP 

ILLDEVICEOP 

CLOCKSTATUS 

CLflCKRESET 

CLOCKPFRESTART 

* 



MRITEA IS A 



YOU UPDATE THE CLOCK, HOT REBUILD IT (CREATE) 

RENAHE IT TO mm CLOCK-RADIO.: ??? 

YOU CAN'T GET RID OF THE CLOCK, NEITHER 

NO CONTROL FUNCTIONS 

SAY "I'H A CLOCK, TICK-TOCK" 

WHO UHPLU86ED HE??? 

WHAT AH I SUPPOSES TO DO, PUT THE CLOCK A^AY?? 
HOB ABOUT L00KIN8 AT YOUR $9 TI CHEAPIE, MAC! 
AH I SUPPOSED TO KEEP TIME k'lTH NO POSTER??? 
TOUSH! 



ILLDEVICEOP 

»SC;8ETTyPE 

CLOCKSPRUNG 

SDOS+SDOS!lOBLOCKPTR 

SDOS+SDOS.'CHECKRDLEN HAS HE GOT A BYTE SPACE 

1 

SCBLK:RD8UF,X BET THE BUFFER POINTER 

»DVTYP,CLOCK I'H ALIVE AND TICKING (HOPEFULLY!) 

DVTYP:TYPE,X 



SDOS+SDOS:CHECKKRLEN HAS HE GOT 6 BYTES? 

h 

SCBLKsMRBUF,X IRITE BUFFER POINTER 



0,X 



CLQCKWBl 



iSDOB 
§6 

SDqS:CL0CK+5,X 



CLQCK»S2 



■ DON'T ^ANTTO UPDATE THE CLOCK HHILE SETTING IT 



AND WE' S .DONE! 



HflL/iBOa ,i.3F! 


8469 


SDOSDRIVERi 


0i/14/831i;39!33| Page 12; For 


lOCLOCK.ASH 




8469 B1)BE36 


58 


CLOCKREADB 


846C 0006 


59 




846E 01 


60 




846F OF 


61 




8470 CEBEOO 


62 




8473 C606 


63 




8475 A60B 


64 


CLOCKRBl 


8477 08 


65 




8478 36 


66 




8479 5A 


67 




847A 26F9 . 


68 




847C OE 


69 




847D FEBE07 


70 




8480 EEOA 


71 




8482 C606 


72 




8484 32 


73 


■ CL0CKRB2 


8485 A705 


74 




8487 09 


75 




8488 5A 


76 




8489 26F9 


77 




848B 0C39' 


78 






79 


* 




80 


i 




81 


t 


848D BBBE36 


82 


CLOCKREADA 


8490 0011 


83 




8492 8D25 


84 




8494 ,eD41 


85 




8496 8D72 


86 




8498 FEBE07 


87 




849B 8iii 


88 




849D A709 


89 




849F EEOA 


90 




84A1 DFOO 


91 




84A3 CE9002 


92 




84A6 E600 


93 


CLOCKRAl,. 


84A8 08 


94 




84A9 DF02 


95 




84AB MOO 


96 




84AD E700 


97 




84AF 08 


98 




8.4B0 DFOO 


99 




84B2 Bt02 


100, 




84B4 4A 


101 




84B5 26EF 


102 




84B7 0C39 


103 






104. 


1 




105 


} 




106 


i 


84B9 


107 


ClOCK8ktli) 


84B9 01 


108. 




84gA OF 


109 




84BB CEBEOO 


110 




84BE C60fe 


III 




84C0 A60B 


112 


CLOCKSETTB 



m SDOS I/O drivers far Maveftate Jupiter II 
m CLOCK: DRIVER tU 



iC) 1978 SOFTWARE DYNAMICS m 



m 

FDB 

NOP 

SEI 

LDX 

LDAB 

LDAA 

M 

PSHA 

DECB 

BNE 

CLI 

LDX 

LDX 

LDAB 

PULA 

STAA 

DEX 

DECB 

BNE 

OKRTS 



SDOS+SDOSjCHECKRDLEN 

6 HE BETTER HAVE 6 BYTES AT LEAST 

DON'T »ANT CLOCK UPDATED WHILE REABIN8 IT 

#SDOS 

*6 

SDOSi CLOCK, X 



CLOCKRBl 

SDOS+SDOSsIOBLOCKPTR 

SCBLK:RDBUF,X 

«6 



5,X 



CL0CKRB2 



JSR 


SDOS+SDQS;CHECKRDLEN • 


FDB 


17 ENQOGH FOR HHjMHsSS HM/DD/YY 


BSR 


CLOCKSETTD GET TIHE, DATE FROH SDOS 


6SR 


CLOCKDATE FORHAT DATE 


BSR 


CLOCKTIRE FORilAT TIRE 


LDX 


SDOS+SDOSsIOBLOCKPTR 


LDAA 


#17 


STAA 


SCBLK!RPLEN+1,X 


IDK 


SCBLK!RDByF,X 


STX 


TEHPX 


LDX 


iTIHEf 


LDAB 


0,X 


INX 




STX 


TEHPX+2 


LDX 


TEilPX 


STAB 


o^x 


INX' 




STX 


TEHPX 


LDX 


TEHPX+2 


DECA 




BNE 


CLQCKRAi 


OKRTS 





NOP 




SEI 




LDX 


tSDOS 


LDAB 


■ 16 


LDAA 


SDOSi CLOCK, X 



HftL/6800 i.3F: 


84C2 


SDOSDRIVERS 


m SDOS I/Q drivers f 


01/14/83 11 .'39 


!33; Page 13j Form 1 


m CLOCK: DRIVER Ut 


lOCLQCK.ASH 










84C2 OS 


113: 




INK 




84C3 36 


114: 




PSHA 




84C4 5A 


115: 




DECB 




8405 26F9 


116: 




BNE 


CL0CK8ETTS1 


84C7 OE 


117: 




CLI 




84Ca CE8FF4 


118: 




LDK 


tCLQCKBUFFER 


84C8 Ci06 


119: 




LDAB 


»6 


84CD 32 


120: 


CL0CK.8E7TD2 


PULA 




84CE A705 


121: 




STAA 


%l 


84D0 09 


122: 




DEX 




84S1 5A 


123: 




DECB 




84D2 26F9 


124: 




BNE 


CL0CK8ETTD2 


84D4 39 


125: 
126: 
127: 
128: 


t 
t 

t 


RTS 




84B5 8DE2 


129: 


DATE 


BSR 


CLQCKSETTD 


84D7 B48FF8 


130: 


CLOCKDATE 


LSAA 


HQNTH 


84DA 8D22 


131: 




BSR 


BCDTOASC 


84BC B7900B 


132: 




STAA 


DATE*: MONTH 


84BF F7900C 


133: 




STAB 


DATEt:fiONTH+i 


84E2 B68FF7 


134: 




LDAA 


DAY 


84E5 8D17 


135: 




BSR 


BCDTQftSC 


84E7 B7900E 


136: 




STAA 


DATE$:DAY 


e4EA F7900F 


137: 




STAB 


DATE*:DftV+l 


84EB B68FF9 


138: 




LSAA 


YEAR 


84F0 8D0C 


139: 




BSR 


BCDTOASC 


84F2 679011 


140: 




STAA 


DATE!,: YEAR 


84F5 F790i2 


141: 




STAB 


DATES :¥EAR+1 


84F8 CE900B 


142: 




LDX 


»BATE* 


84FB 8608 


143: 




LDAA 


18 


84FD 39 


144: 
145: 


t 


RTS 




84FE 16 


146: 


BCDTOASC 


TAB 




34FF C40F 


147: 




ANDB 


tiF 


8501 CB30 


148: 




ADDB 


ro 


8503 44 


149: 




LSRA 




8504 44 


150: 




LSRA 




8505 44 


151: 




LSRA 




8506 44 


152: 




LSRA 




8507 8B30 


153: 




ADDA 


»'0 


8509 39 


,154s 
155: 
156: 


i 


RTS 




850A BB852E 


157: 


CLOCKTIilE 


JSR 


SIVIDEBY60 


850D CE9008 


158: 




LDX 


ITIHE$: SECONDS 


8510 8D10 


159: 




BSR 


CLOCKHAKEXX 


3512 CE9005 


160: 




m 


ITIfiEi:HINuTES 


8515 8D0B 


161: 




BSR 


CLOCKHftKEn 


8517 CE9002 


162: 




LDK 


IT I RE* : HOURS 


851A SD06 


163: 




BSR 


CLOCKHfiKESX 


S51C CE9002 


164: 




LOS 


#TIHE$ 


851F 8608 


165: 




LDAA 


«S 


8521 39 


166: 
167: 


1 


RTS 





NOW DivIDEMD HAS SECONDS 



HftL/6800 L3Fs 
0i/i4/83 ih39i 
IQCLOCK.flSH 
8522 B!)852E 
8525 8830 
8527 CB30 
8529 E700 
852B A701 
852D 39 



852E 
852E C619 

8530 4F 
8531 

8531 49 

8532 813C 
8534 2504 
8536 803C 
853B OD 
8539 85 
853fl OC 
853B 798FF6 
853E 798FF5 
8541 798FF4 

8544 5A 

8545 26EA 
8547 C6FF 

8549 5C 
S54A SOOA 
854C 24FB 
854E SBOA 

8550 39 

■0000 



0000 
0000 
0001 
0001 



8551 
0042 



8522 SDQSDRIVERS 
33j Page 14; ForiB I 



m SDDS I/O drivers for aavsHate -Jupiter II (C) 1978 SOFT! 
m CLOCK! DRIVER tU 



ARE BYNAHICS iti 



168 
169 
170 
171 
172 
173 

174; 

175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193; 

194 
195 
196 
197 
198 
199 
200 
20i 
202 
228 
229 
230 
402 
403 

405; 

406 
408 
409 
410 
1 
2 



0042 0001 

0043 0001 



10 



CLOCKMAKEXK 



* 

t 
DIVIDEBY60 



DIVIDE60L 



SIVIDE60L2 



DIVICE60L3 



FIN 

IF 

FIS 

IF 

FIN 

IF 



JSR 

ADDA 



STAB 
STAA 
RTS 



DIVIDEBY60 
#'0 

re 
o,x 

15X 



DIVIDE BY 60 - DIVIDE 3 BYTE "DIV60DIVIDEUD" BY 60 
DIVIDE!ilD!=DIVIDEND/60 
(A):=REHAINDER HOD 10 
iB)!=INT!REI1AiNDER/10) 
I 
«3t8+i NURBER OF BITS 



m 

LDAB 

CLRA 

E8U 

RQLA 

CHPA 

BCS 

SUBA 

SEC 

$85 

CLC 

RDL 

ROL 

ROL 

DECB 

BNE 

LDAB 

INCB 

SUBA 

BCC 

ADDA 

RTS 

FIN 

IF 

FIN 



t 

«60 

DIVIDE60L2 
160 



SKIP THE NEH INSTRUCTION 



DIV60DIVIDEND+2 
DIV60DIVIDETO+1 
DIV60DIVIDEKD+0 

DIVIDE60L 
#-1 

#10 

BIVIDE60L3 

110 

lODRIVERBQDY 

lODRIVERRAH 

IOBRIVERRA« 



BLAEKHOLE 
BLACKHOLE 
SDLP 
SDLP 

VIRTUALFLOPPY 
INCLUDE 

IF lODRIVERBODY 

PHYSICAL DISK DRIVERS STORAGE "DEFS" 



lOVFD.ASN 



SET 
QR8 



I 
DSKINFOsSIZE 



TACKS m TO BOTTOH OF DISK INFO TABLE 



FDREADSRITE 
FDDSTATEJ 



RMB 
RHB 



IS READ, 00 IS WRITE 
iW instructiDn 



llftL/6800 1 
01/14/83 I 
IQVF&.ASI1 
0044 0002 

0046 0001 

0047 0001 

0048 0001 

0049 0001 
004A 0001 
004B 0001 
004C 0001 
004B 0002 
004F 0002 
0051 0002 
0053 0002 

0055 0001 

0056 0001 

0057 0001 
005B 0001 
0059 0001 
OOSfi 0001 

005B 

005B 



.3F: 0044 SBOSDSIVERS 
1:39! 33| Page 15; Form 1 



11 
12 
13 
14 
15 
16 
17 
IB 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 



FDDSTATE RHB 

FDSEEKRETRY RHB 

FCRETRY RHB 

FDDRIVE RHB 

FBCYL RHB 

FDSECTOR RHB 

FDCOHPLEHENT RHB 

..FDFIRSTSEC RHB 

FDHEADCHAIN RHB 

FDNEXTCHAIN RHB 

FDCCB" RHB 

FDMAPAL,G RHB 

FDKIHODNSPT RHB 

FDK2MDDN3PT RHB 

FDi(4iiQDNSPT RHB 

FDKSHODNSPT RHB 

FDKi6H0DNSPT RHB 

FDk32H0DNSPT RHB 

FDHAP ESU 
j virtual floppy deb 

FBsizE m 



m SDOS i/Q drivers for HaveHate Jupiter II (0 1978 SOFTWARE BYNAHICS Hi 
m CLOCK! DRIVER tU 

2 address for JHP instruction 

NUHBER OF RE-SEEKS 

READ/HRITE RETRY COUNT 

DRIVE NUHBER TO USE 

what track we're or i-1 if lost) 

8IHHE THIS ONE 

COHPLEHENT DATA 

FIRST SECTOR ON TRACK 
2 head of shared-head queue 

2 next on shared-head queue 

2 address oi controller table 

2 current uap algoritha 

1 SPIRALINB CONSTANT HQD NSPT 

1 2»SC HQD NSPT 

1 4tSC HOD NSPT 

1 8iSC HOD NSPT 

1 16»SC HOD NSPT 

1 , 32tSC HOD NSPT 

i HAP FOR HAPPINB 



allocates roosi needed for FDHAP 
t 



!1AL/6BG0 1.3F: 


005A 


SDOSDRIVERS 


m SBOS I/O driver! 


01/14/83 ll!39!33i Page 14; Foru 1 


I»t CLOCK: DRIVER ti 


lOVFC.ASII 












33: 
34: 
35: 


t 


Controller Tables 


0000 




ORB 







36: 








0000 0001 


37: 


CCB;BUS¥ 


RHB 


1 


0001 0002 


38: 


CCB:ADDR 


RHB 


2 


0003 0001 


39: 


CCB: TIMEOUT 


RUB 


1 


0004 0001 


40: 


CCB: DRIVE 


RtIB 


1 


0005 0001 


41: 


CCB;CYL 


RHB 


1 


0006 0001 


42; 


CCB:LASTCYL 


RHB 


1 


0007 0002 


43: 


CCB:STARTIO 


RftB 


2 


OO09 0003 


44: 


CCB; STATUS 


RHB 


3 


OOOC 0003 


45: 


CCB: RESET 


RHB 


3 


OOOF 0003 


46: 


CCB: ABORT 


RHB 


3 


0012 0003 


47: 


CCB; RESTORE 


RHB 


3 


0015 0003 


48: 


CCB:SETSEEK 


RHB 


3 


0018 0003 


49: 


CCB; SEEK 


RHB 


3 


OOIB 0003 


50: 


CCB:READSECTOR 


RHB 


3 


OOIE 0003 


51: 


CCB:HRITESECTQR 


RHB 


3 


0021 0003 


52: 


CCB:VERIFYSECTOR 


RHB 


3 


0024 0008 


53: 


CCB:TIHEDUTBLK 


RHB 


■ TIHE0yT:SI2E 


002C 0002 


54: 


CCB:CURRENTDCB 


RHB 


2 


002E 


55: 


CCB:SIZE 


EQU 


* 


8551 


56: 




0R8 


:: 




57: 




FIN 


IQDRIVERBOBY 


0000 


58: 




IF 


lODRIVERRAH 




127; 


FIN 


lODRIVERRftH 


0000 


128: 


IF 




iODRIVERINIT 




172: 


F» 


1 


lODRIVERmiT. 


0001 


173: 


IF 


lODRIVERBQDY 



m SBOS I/O drivers lor WaveHate ^iupiter 11 (C) 1978 SOFTWARE DYNAMICS tit 



controller is biisy 

controller address 

seconds before controller tines out 

drive to access 

cylinder to access, on that drive 

last cylinder accessed, that drive 

address of STARTIO routine 

call for status 

call to abort and interrupt 

call to abort 

call to restore drive 

call to set desired drive and track 

call to initiate seek 

call to read sector 

call to write sector 

call to verify sector just written 

tiseout block for controller 

address of current DCB 



HftL/6800 1.3F! 
01/14/83 tl!39i 
lOVFD.ASH 
8551 9DE3 
8553 85M 
8555 8569 
8557 B58F 
8559 8546 
855B 855D 



8551 SDQSDRIVERS 
33j Page 17| Foria I 



855D 8111 
855F 2703 
8561 7EeEDB 



8564 0C39 



8566 

8566 7E8EDB 



175 
176 
177 
178 
179 
180 
181 
182 
'183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 



FDDRIVER FDB 
FDB 
FDB 
FDB 
FDB 
FDB 



m SDOS I/O drivers for Wavellate Jupiter II iC) 1978 BDFTJIfiRE DYNAHICS tit 
»« CLOCK: DRIVER ttt 

FDRESTORE 

FDREAD 

FDWRITE 

FDMAITDONE 

FDSTATUS 

FDCONTROL 



t 



FDCONTROL -- CONTROL OPERATION ENTRY POINT FOR SECTOR I/O DRIVER 



FDCONTROL CMPft SCC:D1S«0UNTDISK SINCE SDOS PASSES THIS THRU 
BEQ FDDISHDUNT B/ ITS A DISHOUNTi 
OfiP ILLDEVICEQP NOT A LEGAL CONTROL CALL 

FDDISMOUNT 0KRT3 I 'H HAPPY... 

% FDSTATUS- HANDLE STATUS REQUEST 

FDSTATUS 



OHP 



ILLBEVICEOP 



SUCH STATUS AVALIABLE 



HftL/68M 1.3F! 8566 SDDSDRIVERS tit 3D03 I/O drivers for MaveHate Jupiter 11 (C) 1978 SOFTIifiRE SYNAtllCS ttt 

01/14/83 Ih39s33; Page IB; Form 1 Jit CLOCK: DRIVER m 

lOVFD.ASH 

197: J FCREftD/WRITE -- START SIN6LE SECTOR TRANSFER 

198: 

8569 8601 199: FD«RIT£ LDAA #1 

S56B 2001 200; BRA FDREAD.l 

%m 4F 201: FQREAD CLRfi 

856E BD85AF 202: FDREAD.l JSR FDSETIJPDRIVE 60 SET UP ALL THE PARAMETERS IN THE DCS 

8571 EE51 203: LDX FDCCB,)( see if controller is busy 

8573 6D00 204: TST CCB:BUSV,X 

8575 2603 205: BNE FDSTARTIO 

8577 BDBE2A 206: JSR SSOS+SDOS:WAITEVENT 

857A DE06 207; FDSTARTIO LDX DCBPOINTER NOW NOBODY'S USINB DRIVE 

857C 6F00 208: CLR DCBiDQNEFLAG,)! KICK INTERRUPT ROUTINE INTO HOTION , 

857E EE51 209: LDX FDCCB,X point controller table at this DCB 

8580 9606 210: LDAA DCBPOINTER 

8582 D607 211: LDAB DCBPOINTER+1 

8584 A72C 212: STAA CCB:CURRENTDCB,X 

8586 E72D 213: STAB CCB;CURRENTDCB*1,X 

8580 EE07 214: LDX CCB:STARTID,X 

858fi BDBE24 215; JSR SDOS+SDOS:STARTIO 

858D 0C39 216: OKRTS 

217: 

858F 218: FDiiAITDONE 

858F A600 219: LDAA DCB:D0NEFLA6,X IS IT DONE? 

8591 2605 220; BNE , FDBAITl 8/ YES 

8593 BBBE2A 221: JSR SDOS+SDOS:»AITEV'ENT 

8596 DE06 222: LBX DCBPOINTER 

8598 EEOl 223: FSWAITl LDX DCB:LASTERROR,X 

859A 2703 224: BES FDHAIT2 S/ NO 

859C 7EeEE0 225: JMP ERRETX 

S59F 0C39 226; FDyAIT2 QKRTS 



mil mo 1.3F! 

01/14/83 1.1S39 
IQVFD.ftSH 

85A1 
85A1 EOOC 
85A3 24FC 
85A5 EBOC 
85A7 39 

8SA8 
85A8 AOOC 
85AA 24FC 
85Ae ABOC 
85AE 3? 



. 85ftF 
85AF DE06 
85Bi A742 
85B3 C60A 
85B5 E747 
8567 8604 
35B9 A74i 
85BB 6F01 
85BD 6F02 
85BF Eblb 
85C1 Aii7 
85C3 E153 
85C5 2604 
85C7 A154 
85C9 2742 
85CB E753 
85CD A754 



859F SDQSDRIVERS 
i33j Page i9j Fordi 



228! 
229: 
230: 
231 ! 
232! 
233; 
234: 
235: 
236: 
237: 
238: 
239: 
240: 
241: 
242: 
243: 
244: 
245: 
246; 
247; 
248: 
249; 
250: 
251: 
252; 
253; 
254; 
255: 
256: 
257; 
258: 



HODULQNSPTB 

SUSB 
BCC 
AGDB 
RTS 



i** SMS 1/Q drivers for WaveHats Jupiter 11 
lit CLOCK: DRIVER t*i 



DSK1NF0:NSPT+1,X 

HOBULONSPTB 

BSKINFQ:NSPT+1J 



(C) 1978 SOFTWARE BYNAHICS iti 



MODULONSPT 



SUBA 
BCC 
ADDA 
RTS 



DSKINFQ;!<SPTtl,X 

MODULONSPT 

SSKINFO:NSPT+l,X 



i 



FDSETUPDRIVE - SETS UP FDDRIVE TABLE FOR INTERRUPT DRIVEH TRANSFER 



FDSETUPDRIVE 
LDX 
STAA 
LDAB 
STAB 
LDAA 
STAA 
CLR 
CLR 
LDAB 
LDAA 
CHPB 
BNE 
CHPA 
BEQ 

FDSETUPl STAB 
STAA 



BCBPQINTER 
FDREAD«RITE,) 
tlO 
FDRETRY,X 



SAVE THE READ/HRITE FLAG 

SAVE THE READ/HRITE RETRY COUNT 
SETUP SEEK RETRY COUNT 



FDSEEKRETRY.X 

DCB:LASTERROR,X "NO ERRORS" 

DCB:LASTERR0R+1,X 

DSKINF0:l1APAL60RITHHjX 

DSKINFQ:MAPAL80RITH!1+1,X 

FDHAPAL8,X 

FDSETUPl • 



FDMfiPALGM,X 

FD3ETUP2 

FDHAPAL6.X 

FDHAPALB+i,X 



B/ m? HAS CHANGED 
B/ MAP HAS NOT CHANGES 



85CF. DFOO 
85Di 40 
85D2 E60C 
85D4 BE06 
85D6 ABi7 
85D8' 



85DC 09 
85DD 08 
B5DE 9C00 
85E0 2707 
85E2 A15B 
85E4 2iP7 
85E6 4C 
85E7 20EF 
85E9 A75B 
85EB 08 
85EC DFOO 
85EE 5A 
85EF 26E3 



260: 

261: 

262 s 

263: 

264; 

265: 

266; 

267: 

268: 

269: 

270: 

271: 

272; 

273: 

274: 

275: 

276: 

277: 

278; 

279: 

2B0: 

281: ? 

282: 



BUILDHAP 3TX 
NE8A 
LDAB 

BUILDHAPi LBX 
ADDA, 

BUILDHAP 2(iSa 

DEX 

BUILDMAP3 INX 

CPX 



CHPA 
BNE 
INCA 
BRA 
BUILDi1AP4 STAA 
INX 
STX 
DECB 
BNE 



TEHPX 

DSKINFO:NSPT+i,X NUtlBER OF TIMES TO DO THIS 

DCBPO INTER 

DSKINFOiHAP ALSORlTHHtl.X 

HODUIDNSPL-^ 

SEE IF THIS SECTOR NUMBER 
ALREADY USED 



ICBPOINTER 



TEHPX 
BUILDi1AP4 
FBHAPjX 
BUILDHAP3 

BUILDHAP2 
FDKAPjX 



B/. NOT USED, USE IT 

B/ IT'S NOT THIS ONE, KEEP LOOKING 
OH MELL, LET'S BUHP IT AND TRY AGAIN 



TENPX 
BUILDHAPl 
BUILD UP THE SPIRALIlTlIFtr 



ARE ME DONE BUILDING THE HAP? 
B/ NOPE 




MAL/iBOO 1.3Fi 


85Fi 


01/14/83 li:39s33i f 


lOVFS.ftStl 




85Fi DE06 


283! 


85F3 A653 


284 


85F5 8I)B1 


285: 


85F7 A755 


286 


85F9 48 


287! 


85FA BDAC 


288 


85FC A756 


289! 


85FE 48 


290 


85FF eDA7 


291 ! 


8601 A757 


292 


8i03 48 


293: 


8i04 BDA2 


294 


8606 A758 


295 


8608 48 


296 


8609 8D9D 


297 


860B A759 


298 



SBOSDRIVERS Ut SDOS I/O drivers for WaveMate Jupiter II (C) 1978 SOFTMRE BYNAtlISS I** 
aqe 20; Fori 1 tit CLOCK: DRIVER «» 



m 


DCBPOINTER 


LDAA 


FDllAPALGjX 


BSR 


HQBULDNSPT 


STAA 


FDKlHODNSPTjX 


ASLA 




BSR 


HQDULONSPT 


STAA 


FDK2110fiNSPT,X 


ASLA 




BSR 


MODULONSPT 


STAA 


FDK4H0BNSPT,i( 


ASLA 




BSR 


HODULOWSPT 


STAA 


FDK8H0DNSPT,X 


ASLA 




BSR 


HOSliLONSPT 


STAA 


FBK16H0DNSPT.X 



miim'i 1.3F: 
Oi/14/83 11:39 
IQVFD.ASn 

860D 
860D EE2B 
860F A603 
8611 E604 
8613 DE06 



8615 58 

8616 49 

8617 AOOC 

8619 2402 
861B A80C 
e61D 694A 
861F 58 

8620 49 

8621 AOOC 
8623 2402 
8625 ABOC 
8627 694A 
8629 58 
862A 49 

862B AOOC 
862D 2402 

862F ABOC 
8631 694A 

8633 58 

8634 49 

8635 AOOC 
8637 2402 
8639 ABOC 
863E 694A 
8635 58 
863E 49 

863F AOOC 
8641 2402 
8643 ABOC 
8645 694A 

8647 58 

8648 49 

8649 AOOC 
864B 2402 
864D ABOC 
B64F 694A 

8651 58 

8652 49 

8653 AOOC 
8655 2402 
8657 ABOC 



3D0SDRIVERS 
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m SDOS I/Q drivers for HaveHate Jupiter II (C) 1978 SOFTWARE DYNAHICS Ui 
m CLOCK: DRIVER tit 



300 
301 
302 
303 
304 
305 
306 
307 



311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354; 



FDSETUP2 ; CQHPUTE TARBET CVliNDER AND SECTOR 
LDX 1)SKINF0;SECT0R&B,X 
LDAA R&Sl!LSN+l,K SET LSN 
LDAB RI)SI:LSN+2,X 
LDX DCBPOINTER' SO ME CAN POKE AT DCB A6AIN 

! 

; NoH generate ff quotient bits (enough for 255 tracks!) 



it takes 8 ABLD's to shift sector 

nunber into upper byte 
Compute quotient bit 
b/ did go in, quotient bit is 1 
didn't go in, quotient bit is zero 
save cofflplesent of quotient bit 
double the dividend 



Coipute quotient bit 
b/ did go in, quotient bit is 1 
didn't so in, quotient bit is zero 
save coffiplEBient of quotient bit 
double the dividend 



Cosipute quotient bit 
b/ did go in, quotient bit is 1 
didn't go in. quotient bit is zero 
save coipleaent of quotient bit 
double the dividend 



Cospute quotient bit 
b/ did go in, quotient bit is 1 
didn't go in, quotient bit is zero 
save cDfflpIesient of quotient bit 
double the dividend 



Coaputs quotient bit 
b/ did go in, quotient bit is 1 
didn't go in, quotient bit is zero 
save cQfiipleisnt of quotient bit 
double the dividend 



Coipute quotient bit 
hi did go in, quotient bit is I 
didn't go in, quotient bit is zero 
save coipleffient ef quotient bit : 
double the dividend 



ASLB 


, 




ROLA 






SUBA 


DSKINFD:NSPT+1, 


X 


BCC 


»+4 




ADDA 


DSKINFO:NSPT+i, 


X 


ROL 


FDSECTOR.X 




ASLB 






ROLft 






SUBA 


DSKINF0:NSPT+1, 


X 


BCC 


1+4 




ADDA 


DSKINF0:NSPT+1 


X 


ROL 


FDSECTOR,X 




ASLB 






ROLA 






SUBA 


DSKINF0:MSPT+1 


X 


BCC 


»+4 




ADDA 


DSKISF0:NSPT+1 


X 


ROL 


FDSECTORjX 




ASLB 






ROLA 






SUBA 


DS.KIHFO:NSPT+i 


K 


BCC 


1+4 




ADDA 


DSKIIIF0:NSPT+1 


X 


ROL 


FDSECTOR,X 




ASLB. 






ROLA 






SUBA 


DSKINF0:NSPT+1 


If 


BCC 


1+4 




ADDA 


DSKINFQ:NSPT+1 


■^ 


ROL 


FDSECTQR,X 




ASLB 






ROLA 






SUBA 


DSKINFO:l>iBPT+l 


Si 


BCC ' 


t.+4 




ADDA 


DSKIi!lFQ:NSPT+i 


X 


ROL 


FDSECTOR,X 




ASLB 






ROLA 






SUBA 


5SKINFQ:NSPT+1 


t 


BCC 


,1+4 




ADDA 


DSKmFO:NSPT+i 


i 




Ccipute quotient bit 

b7 did go in, quotient bit is 1 
didn't go in, quotient bit is zero 



HAL/4800 1.3F: 


8659 SBQSDRIVERS 


It* SDOS I/O drivers for aaveHate Jupiter II (C) 1978 


01/14/83 ili39!33s Page 22j 


Form 1 


m CLOCK! DRIVER ttt 


lOVFD.ftSH 










8i59 i94A 


355: 


ROL 


FDSECTOR,X 


save complejisnt ol quotient bit. 


865B 58 


356: 


ASL3 




double the dividend 


865C 49 


357: 
358: 


RQLA 






865D AOOC 


359: 


5U6A 


DSKINFD:NSPT+i,X 


Coipute quotient bit 


8i5F 2402 


360: 


BCC 


■ t+4 


b/ did go in, quotient bit is 1 


8i6i ABOC 


361: 


ADDA 


DSKINFQ:NSPT+1,X 


didn't go in, quotient bit is zero 


8&i3 W4A 


362: 


ROL 


FDSECTORjX 


save coapleiBent of quotient bit 




363: 1 


ASLB 




double the dividend 




364: 1 


ROLA 


^' 






365: 








8665 E64A 


366: 


LDAB 


FDSECTDR,X • 


get complenient of desired track 


8667 53 


367: 


COMB 




invert the inverted quotient bits 


3668 A74A 


368: 


STAA 


FDSECTORjX 


save- sector within track 


S66A EE2B 


369: 


m 


DSKINFO:SECTORDB,> 


no« save cylinder nusber in RDSI 


866C 6F11 


370: 


CLR 


RSSI:C¥LINDER,X 




866E E712 


371: 


STAB 


RDSI:CYLINi)ER+l,X 




8670 6F0D 


372: 


CLR 


RDSI:SECTQR,X 




0672 6F0E 


373s 


CLR 


RDSI;SECT0R+1,X 




8674 DE06 


374: 


LDX 


BCBPQINTER 





!1AL/6800 1.3F: 


8676 


SDQSDRIVERS 


m SDOS I/O di 


01/14/83 iJ:39!335 Page 23j 


Forffl I 


til CLOCK: DRI 


IQVFO.ASH 










8676 EE53 


376: 




LDX 


FDMAPAL8,X 


8678 aCOOOi 


377: 




CPX 


#$0001 


867B 2734 


378: 




6E6 


FDSETUP4 


867D 9B07 


379: 




ADDA 


DCBPOINTER+1 


867F 9701 


380: 




STAA 


TEHPX+1 


8681 9606 


381: 




LDAA 


DCBPOINTER 


8683 8900 


382: 




ADCA 


10 


8685 9700 


383: 




STAA 


TEHPX 


8687 4F 


384: 




CLRA 




8688 DE06 


385: 




LDX 


DCBPOINTER 


86SA BD85A1 


386: 




JSR 


nODULQNSPTB 


868D 57 


387: 




ASRB 




868E 2402 


388: 




BCC 


HAPl 


8690 ftB55 


389: 




ADDA 


FDKlHQDNSPTjX 


8692 57 


390: 


HAPl 


ASRB 




8693 2402 


391: 




BCC 


l1fiP2 


8695 AB56 


392: 




ADDA 


FDK2H0DNSPT,X 


8697 57 


393: 


HAP2 


ASRB 




8698 2402 


394: 




BCC 


HAPS 


869A ftB57 


395: 




ADDA 


FDK4I1DDNSPT,X 


869C 57 


396: 


HAP3 


ASRB 




869D 2402 


397: 




BCC 


HAP4 


869F AB58 


398: 




ADDA 


FDK8I10DNSPT,X 


86A1 57 


399: 


HAP4 


ASRB 




,86A2 2402 


400: 




BCC 


HAP5 


86ft4 AB59 


40i: 




ADDA 


FDK16H0DNSPT.X 


86A6 DEOO 


402: 


t1AP5 


LDX 


TEilPX 


86A8 AB5B 


403: 




ADDA 


FDHAPjX 


86AA DE06 


404: 




LDX 


DCBPOINTER 


86AC BD85A8 


405: 




JBR 


HODULQNSPT 


86AF A74A 


406: 




STAA 


FDSECTORjX 


86Bi 


407: 


FDSETUP4 




86B1 8E06 


408: 




LDX 


DCBPOINTER 


86B3 0C39 


409: 




DKRTS 






410: 




Fiii 


lODRIVERBODY 


0000 


411: 




IF 


IGDRIVERPOLL 




434: 




FIN 


iODRIVERPQLL 


0001 


435: 




IF 


I0DRI9ERB0DY 


,B6B5 


436: 


DISKINTERRUPT ; 


entered with CCB 


86B5 8D02 


437: 




BSR 


DISKINT5ETUP 


86B7 6E43 


438: 




JHP 


FDDSTATEJJ 



m SDOS I/O drivers for MaveHats Jupiter II iC) 1978 SOFTMARE DYNAHICS tU 



apply fnapalgorithji)... 
unless it is :,0001 
B/ Bap algorithffl ;0001, all done! 



make spiral in (A) 
assert: cylinder nudsber in 



(B) 



55 in (X) 

set up a working context area 
resuase process waiting for interriipt 



HftL/6800 i.3F: 
01/14/83 11:39 
IDVFD.ASH 

8il9 
86B9 FF"?0i5 
86BC EE2C 
86BE FF9013 
86CI 39 

0002 

86C2 
,B6C2 CE9017 

0002 
8AC5 2003 



0002 
86C7 
86C7 CE9045 

8&CA 

86CA iFOO 

86CC 860i 
S6CE A703 
BiDO 8600 
8&D2 C645 
86D4 A72i 
86Di E727 
86D8 BMF 
868A A642 
86DC 2707 
861)E 6D4B 
S6E0 2703 
S6E2 BS87FB 



86B7 SDOSDRIVERS 
33; Page 24; Fori 1 



440: 
441: 
442: 
443: 
444: 
445: 
44&: 
447: 
448: 
449: 
450: 
451 ! 
452: 
453: 
454: 
455: 
456: 
457: 
458: 
459: 
460: 
461: 
462: 
463: 
-464: 
465: 
466: 
467: 
468: 
469: 
470: 
471: 
472: 



DISKINTSETUP 
STK 
LDX 
STK 
RTS 



lit SDOS I/O drivers for.KaveHate Jupiter II (C) 1978 SOFTWARE BYNAiilCS Ut 
l« CLOCK: DRIVER tti 

; set up a context area ai sorts 

DISKINTCCB reaeaher interface table address 

CCB:CURRENTDCB,J{ 

DISKINTDCB 



IF PERSCI 
BISKINTSTARTPERSCI 

LDK «CCB!PERSCI 
IF DftfiFLOPPY 
BRA DISKINTSTART 

FIN DAHFLQPPY 
FIN PERSCI 
IF DAHFLOPPY 

DISKINTSTARTDAHFLOPPY 



ASSERT: I«TERRUPTS ARE DISABLED HERE! 



ASSERT: INTERRUPTS ARE DISABLED HERE! 



LDX 
FIN 
DISKINTSTART 
CLR 



I 



GLI 

LfiAA 

STAA 

LDAA 

LDAB 

STAA 

STAB 

BSR 

LDAA 

BES 

TST 

BEQ 

J3R 



ICCB: DAHFLOPPY 
DftHFLQPPY 

CCB:BIISY,X ffiark controller busy 

(alloH interrupts) 
16 Set up lor 6 l-second interrupts 

CCB:Tii1E0l]T,X to keep disk spinning 
t ( 1 tTICKSPERSECOND+NTIHEOUTBLQCKS) /256 
» ( 1 IT ICKSPERSECOND+NTIHEQUTBLOCKS) i$FF 
CCB:TIHEQUTBLK+TIHEOUT:FUSE,X 
CCB:TIHEQUTBLK4-TIHE0UT:FySE+l,X 
DISKINTSETUP set up a working context area 
FDREAD^RlTEjX a write to an IBH foraat disk 
SEEK must have the data coBpletented 

FDCOHPLEMENTjX before it is written 
SEEK (and coiplesented back, after 

DISKCOHPLEHENT it has been written) 



HAL/i800 1.3Fi 
Oi/14/83 tl!39i 
IQVFD.AS« 



8iE2 SBOSSRIVERS 
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m SDOS I/O drivers for SaveHate Jupiter II !C) 1978 SOFTWARE 
m CLQCKi DRIVER «« 



DVNftMICS m 



86E5 FE9015 
8&ES ADIS^ 
86EA 2412 
8iEC CiFF 
86EE 2730 
86F0 FE9015 
86F3 AD18 
86F5 EE2B 
86F7 fi612 
86F9 FE9013 
86FC aD76 

86FE- 
86FE EE2B 
8700 E605 
8702 FE9013 
8705 A64ft 
8707 AB4C 
8709 AC42 
870B 2673 
870D 7E87D4 



474 
.475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 

495: 

496 
497: 
498 
499 
500 
501 
502 
503 
504 
505 
506 



t 

» 
t 
i 
% 

% 
t 

% 
SEEK 



See if the head isust be moved with a seek opsratianf 
i'f it (sust, the seek is done without verification, as a seek 
failure will be picked up by a subsequent read/write as 
"record not found" status, for which the reaiedy will be 
a restore operation. The restore operation IS verified; if 
it fails, a "seek error" is registered, and the restore is 
retried, up to the seek-retry count, 



LDX BISKINTCCB 

JSR CCB:SETSEEK,X 

BCC SEEKDQNE 

CHPB #-1 

BEQ SEEKHOHE 

LDX DISKINTCCB 

JSR CCBsSEEKjX 

LDX DSKINFOiSECTORDBjX 

LDftA RDSIiC¥LIN&ER+i,X 

LDX DISKINTDCB 

BSR DISKSETCVLADD 



SEEKDONE 



LDX DSKINFO;SECTORDB,X 

LDAB RDSl!SECTORBfiSE,X 

LDX DISKINTDCB 

LDAA FDSECTOR,X 

ADDA FDFIRSTSEC.X 

TST FDREADHRITE,X 

BNE DISKSRITE 

JHP DISKREAD 



announce intentions 

B/ no seek necessary 

a seek is necessary: if the B register 

contains a -1, then I m lost and 

sust do a restore; otherwise, a ' 

standard seek will suffice 

I assert that I af on the right track 

remesber which track we are on 



pick up the buffer page nutber in the 
B register, pick up the sector nuaber 
in the A register and offset by 
the track base sector 



<yLld ^ 



go off and do the read or writs, 
appropriate 



as 



%%%% THE WESTERN DIGITAL TRICK OF STEP IN ONE/STEP OUT ONE SHOULD 

i%%t BE ADDED TO HAKE THE DRIVER MORE ROBUST. 

%m BUT DENNIS PAINTER SEZ IT DOESrT iiORK ON ft PERSCI. 



HAL/iSOO 1.3F! 
01/14/93 lis39! 
IQVFD.ASH 
8710 A733 
8712 6C31 
8714 2602 
8716 6C30 
8718 B6FF 
871A 81)58 
871C 6A46 
87IE 2715 

8720 
8720 8D4S 
8722 FE90,15 
8725 AD12 
8727 FE9015 
872A AD09 
872C 8504 ' 
87ZE 27E0 

8730 4F 

8731 8D41 
8733 20B0 



8710 SDOSDRIVERS 
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m SDOS I/Q drivers for WaveHate Jupiter II (0 1978 SOFTSASE DVNAHICS tU 
m CLOCK! DRIVER tU 



508: 
509: 
510: 
511: 
512: 
513: 
514: 
515: 
516: 
517: 
518: 
519: 
520: 
521; 
522: 
523: 
524: 
525: 
526: 



SEEK3 STAA 
INC 
BNE 
INC 

SEEK3.i LDAA 
BSR 
DEC 



SEEKHOME 



BSR 
LDK 
JSR 

m 

JSR 

BITA 

BEQ 

CLRA 

BSR 

BRA 



DSKINF0:SEEKERRSTB+1,)( 

DSKINF0:SEEKERRCNT+1,X 

SEEK3.1 

DSKINFO:SEEKERRCNT,X 

*-l 

DISKSETCYLADD 

FDSEEKRETRY,)! 

DISKSEEKERROR 

DISKABORT 

DISKINTCCB 

CCB: RESTORE,)! 

DISKINTCCB 

CCB; STATUS, K 

#7.00000100 

SEEK3 

DISKSETCYLADD 
SEEK 



count a seek error, and 
save the error status 



Say that I lost iy place,,. 

DO«N COUNT » TRIES LEFT 
B/ SAKi CROAK! DIE..., 

KILL WHATEVER DISK IS D0IN8 



tit Hhy doesn't this check far success? 
(ON OTHER HAND, IF CYL 0, WHO CARES?) 
B/ DIDN'T BET TO CVL FOR SOME REASON!? 

SET Til AT CYLINDER 0" 

60 TRY SEEK TO PROPER TRACK ftSAIN 



!iAL/6800 i.3F 
01/14/83 11:39 
IQVFD.ASH 

8735 
8735 Si04 
8737 C617 
8739 2012 

373B 
873B 8604 
873D C618 
873F 200C 

8741 
8741 8604 
8743 C615 
8745 61)42 
8747 2704 
8749 8604 
874B C6i6 

874!) 
874D A70i 
874F E702 

8751 
8751 6C00 
8753 FE9015 
8756 6C00 

8758 
8758 Ft9013 
875B 61)8828 

875E 
875E 8D0F 
8760 20F6 



'> SDOSDRIVERS 
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m SDOS I/O drivers for WaveHate Jupiter li iC) 1978 SOFTWARE DYNAHICS iti 
m CLOCK: DRIVER tit 



528: 
529: 
530: 
531: 
532: 
533: 
534: 
535: 
536: 
537: 
538: 
539: 
540: 
541; 
542: 
543: 
544: 
545: 
546: 
547; 
548: 
549; 
550: 
551: 
552: 
553; 
554; 
.555: 
556: 
557: 



DISKSEEKERROR 

LDftA «ERR:DISKSEEK/256 

LDftB SERR:DISKSEEK«i$FF 

BRA DISKERRORl 

DISK8PERR 

LSAA »ERR:DSKSRTPR0T/256 

LDAB tERR:DSK8RTPRQTS!$FF 

BRA DISKERRORl 



DISKERROR : lata! read or write error occurred 



SET APPROPRIATE ERROR CODE 



IERR:DISKREAD/256 

#ERR:DISKREAD8:$FF 

FDREAD»RITE,1( 

DISKERRORl 

#ERR:DISKHRITE/256 

#EKR:DISi<wRITEyFF 

DCB:LASTERR0R5X 
B DCB:LASTERR0R+1,X 

DCB:D0NEFLA8,X 

DISKINTCCB 

CCB:BUS¥,X 

DISKINTDCB 
^AiTFORINTERRUPT 



LDAA 
LDAB 

TST 
BEB 
IDAft 
LDAB 
DISKERRORl 
STAA 

sta: 
diskdqne 

INC 
LDX 
IHC 
DISKDONEi 
LDK 
JSR 

diskintunespected 

BSR DISKABORT 
BRA SISKDuNEl 



ASSUHE READ ERROR 

WAS IT A READ OR ft 
B/ IT'S A READ 



HRITE" 



SIGNAL "DISK DONE" 



SO TASK KNOWS SE'RE FREE 



ilAL/6800 i.3F; 

01/14/83 11539 

lOVFS.ASil 

3762 



8762 FE90i5 
8765 AS05 

8767 16 

8768 59 

8769 39 

876A 
876A FE9ui5 
876D 6E0C 

876F 
876F FE90i5 
8772 6E0F 

8774 
8774 EE4D 

0776 
8776 A749 
3778 EE4F 
877A 26FA 
877C FE9013 
877F 39 



8760 SUOSDRIVERS 
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m SD09 I/O drivers for HaveHate Jupiter II !C) 1978 SOFTWARE CYNAHICS It* 
m CLOCK! DRIVER »» 



559: 
560: 
561: 
562: 
563: 
564: 
565: 
566: 
567: 
568: 
569: 
570: 
571: 
572: 
573: 
574: 
575; 
576: 
577: 
578: 
579: 
580: 
581: 
582: 
583: 



CHECKOISKREASV 

I It would be nice if this could be used to tell one that the drive 

; did not have a diskette in it... Thank you Dennis BroHO 

LDX DISKINTCCB return carry set if not ready: 

JSR CCB: STATUS, K carry reset if ready-- 

TAB in either case, status is in A 

ROLE 

RTS 

MAKEDISKREADY 

LDX DISKINTCCB 
JHP CCB: RESET, X 



DISKABORT 
LDK 
J«P 



DISKINTCCB 
CCB;AB0RT,3( 



abort whatever' 5 being done 



DISKSETCYLADD j nark BCBs that share heads as all being on track (A! 

LDX FDHEADCHAWjX 
DISKSETCYLADD.! 

STAA 

LDX 

BNE 

LDX 

RTS 



FDCYL,X 
FDNEXTCHAIN.X 
DISKSETCYLADD.! 
DISKINTDCB 



all SCB's sharing the saroe head 
ffiechanisffl are chained together 
so that all FDCYL values will 
be equally correct 



HAL/6800 i.3F: 


877F 


SDQSDRlVEftS 


m SDOS I/O dr 


vers far iiaveHate Jupiter II (C) 1978 SOFT 


01/14/83 ll!39!33; 1 


'age 29; Fom 1 


m CLOCK! DRIVER Ui 


lOVFD.ASH 










8780 


585: 


DiSKSRITE 






8780 FE9015 


586 


LDX 


BISKINTCCB 




8783 ADIE 


587! 


JSR 


CCB:«RITESECTQR,X 




8785 8DDB 


588 


BSR 


CHECKDISKREADY 




8787 8540 


589. 


BITA 


txoioooooo 


IS DISK BRITE PROTECTED ? 


8789 2iB0 


590 


BNE 


BISKUPERR 


B/ YEP. 


878B 2404 


591 


BCC 


DISKMRITE2 


B/ READY 


878D 8DDB 


592 


BSR 


MAKEBISKREADY 


since the drive aust have shut do«n, 


878F 200F 


593 
594 


BRA 


SEEKDONEJ 


we'll try this again 


8791 


595 


DISKWRITE2 






8791 857C 


596 


BITA 


r/.0i 111100 


Is the write OK? 


8793 2612 


597 


! BNE 


DISt(!iRITE4 


B/ NO 


8795 FE9015 


598 


LDX 


DISKINTCCB 




8798 AD21 


599 


! JSR 


CCBiVERIFYSECTORjX 


do a verify 


879ft 8DC6 


600 


BSR 


CHECKDISKREftDV 


SELL? 


879C 2405 


601 


! BCC 


DI3KSRITE3 


B/ 10-4 


879E 8DCA 


602 


BSR 


HAKEDISKREADY 


It's not. 50 we'll try the write again 


87A0 


603 


: SEEKQONEJ 






87A0 7E86FE 


604 


JHP 


SEEKDONE 





HSL/6800 1.3F: 
01/14/83 11:39 
lOVFD.ftSH 

87A3 
87A3 8518 
87ft5 273E 

87A7 
87fl7 A736 
873? BDl? 
87AB 6C35 
87AD 2602 
87AF iC34 

87B1 
8781 iA47 
87B3 270C 
8785 E647 
87B7 5A 
87B8 2704 
87BA 8510 
87BC 27E2 

87BE 
87BE 7E8720 

87C1 

87CI 7E874! 

8704 
87C4 EE2B 

87Ci A603 
87C8 E604 
87CA FE9013 
87CD iF3F 
87CF A740 
e7Di |f41 
87D3 39 
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m SDOS I/O. drivers for BaveMate Jupiter II (C) 1978 SOFTMARE CYNAHICS III 
m CLOCK: DRIVER tU 



606 
607 
608 

609; 

610i 
611 
612 
613 
614 
615 
616 
617 
613 
619 
620 
621 
622 
623 
624; 
625 
626; 
627 
628 
629 
630 
631 
632 

633; 

634 

635; 

636 
637 



DISKWRITE3 
BITA 
BEQ 

DISKNRITE4 
STAA 
BSR 
INC 
6NE 
INC 

DISKWR1TE5 
DEC 
BEQ 
LQAB 
DECS 
BEQ 
BITA 
BE8 

SEEKHQMEJ 
JKP 

DISKERRORJ 
JHP 

DISKSAVEERRLS 

m 

LDAA 
LDAB 

m 

CLR 
STAA 
STAi 
RTS 



tXOOOliOOO 

DISKDONEJl 

DSKINFQi»RITE£RRSTB,i( 

DISKSAyEERRLSN 

DSKINFD!KRITEERRCNT+1,X 

DISKWRITE5 

DSKINFQ:WRIT£ERRCNT,)( 

FDRETRY,X 
DISKERRORJ , 
F&RETRY,X 

SEEKHOHEJ 

r/.oooioooo 

SEEKDONEJ 
SEEKHOHE 



DISKERROR 

i save RDSIjLSN in DCB 

D9KINF0iSECT,QRDB,x' 

RDSl!LSN+i,X 

RDSI:LSN+2,X 

DISKINTSCB 

DSKINFQ:ERRLSN,X 

DSKISFO:ERRLSNHjX 

»SK1NF0:ERRLSN+2,X 



record not found or CRC error? 
B/ no—everything's OK 

SAVE 8RITE ERROR STATUS 
SAVE ERRORINB LSN 
COUNT 8 MRITE ERRORS 



B/ NO nORE TRIES LEFT 

ON LAST TRY ? 

(=1?) 

B/ YES, TRY HARDER 

NO, DID KE GET "RECORD NOT FOUND" ? 

B/ NOPE, TRY READ/WRITE AGAIN 

60 SEE IF RE-SEEK HELPS 




5«lr^ Mk ^fftti/J 





X 



HAL/fi800 1.3F; 
01/14/83 11:39 
IQyPS.ASH, 

37S4 
87D4 FE9015 
87D7 ABIB 
871)9 8DS7 
87SB 2404 
87DD 8D8B 
87DF 20BF 

87E} 
87E1 851C 
87E3 2iOA 

S7E5 
87E5 6D4B 
87E7 2703 
87E9 BS87FB, 

87EC 
87tC 7E8751 

87EF 
87EF ft73A 
87F1 8DD1 
87F3 6C39 
87F5 26Bfi 
87F7 6C38 
87F9 20B6 



S7D3 SDOSBRIVERS 
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639: DISKREAD 

640: LDX 

641: JSR 

642: BSR 

643: BCC 

644: BSR 

645: BRA 
646: 

647: DISKREADl 

648: BITA 

649: BNE 

650: DISKDONEJl 

651: TST 

652: BE8 

653: JSR 

654: DISKDONEJ 

655: JKP 
656: 

657: DISKREAB4 

658: STAA 

659: . BSR 

660: INC 

661: 6NE 

662: INC 

663: BRA 



m SDOS I/Q drivers for WaveRate Jupiter II (C) 1978 SOFTWARE DVNAliiCS iit 
m CLOCK: DRIVER tit 



DISKINTCCB 

CCB!READSECTQR,J( 

CHECKDISKREABY 

DISKREADl B/ READY 

HAKEDISKREADY 

SEEKDQNEj; 



1200011100 
DISKREAD4 

FDCORPLENENT,X 

DISKDONEJ 
DISKCOHPLEHENT 

DISKDONE 



DSKINFO:READERRSTS,X 

DISKSAVEERRLSN , 

DSKINF0:READERRCNT+1,X 

DISKWRITES 

DSKINFO:READ£RRCNT,X 

DISKSRITES 



Is the read OK? 
B/ no 

compleffient data? 

B/ NO 

YES, COHPLEHENT DATA BEFORE WE SUIT! 



SAVE READ ERROR STATUS 
save erroring LSN 
COUNT # READ 'errors 



80 CHECK RETRY COUNT 



ilAL/6800 1.3F! 
01/14/83 11:39 
iOVFD.ASH 

87FB 
87FB A609 
87FD E60ft 
87FF EE2B 
8801 EE05 
8803 4C 

8804 
8804,6300 

8806 08 

8807 6300 

8809 08 
880A 6300 
880C 08 
380D 6300 
880F 08 

8810 C004 
8812 26F0 

8814 4A 

8815 26ED 
8817.FE9013 
831 A 39 



87F9 SD03DRIVERS 
i33| Page 32; Fans 1 



m SDOS I/O drivers for «ave!1ate Jupiter II (C) 1978 SOFTWARE CVNAMICS W 
m CLOCK! DRIVER It* 



665! DISKCOHPLEHENT : COHPLEHENT SECTOR CONTENTS (FOR IBH 3740 FORHAT) 



666: 
667: 
668: 
669: 
670: 
671: 
672! 
673: 
674 i 
675: 
676: 
677: 
678: 
679: 
680: 
681: 
682: 
683; 
684: 
685: 



LDAA 
LDAB 
LCX 
LDX 
INCA 
DISKCOHPL 
COH 
INX 
COH 

im 

COR 

INX 

COH 

INX 

SUBB 

BNE 

DECA 

BNE 

LDX 

RTS 



i)SKINF0:N8PS,X 
BSKINF0:NBPS+1,X 
DSKINFO:SECTORDB,X 
RDSi!SECTORBASE,X 



OJ 



O5X 



o,x 
o,x 

14 
DISKCOilPL 

DISKCOHPL 
SISKSNTDCB 



get sector size 



MUST COHPLEHENT THE DATA FIRST 
TO OFFSET "DECA" BELO« ON ist PASS 

COHPLEHENT A BYTE 

BUMP POINTER 

COHPLEHENT A BVTE 

BUHP' POINTER 

COHPLEHENT A BYTE 

BUHP POINTER 

COHPLEHENT A BYTE 

BUHP POINTER 

= # BYTES LEFT TO COHPLEHENT 



TO BE !^ICE TO CALLER 



11AL/6800 1.3FJ 881 A SBOSDRIVERS 
01/14/83 ll!39:33i Page 33; Form 1 
lOVFD.ASH 
0002 687! IF 
6SS: I 



M SDOS I/O drivers lor iiaveHate Jupiter II 
Controller Prisitives 

BftHFLOPPYiPERSCI 

WH FLOPPY DISK HARDWARE DEFINITIONS 



it) 1978 SOFTWARE DYI»!ftHICS Ut 



0002 


690: 




IF 


PERSCI 




FFAO 


491 ! 


PERSChPIACfi 


EQO 


»FFA0 




FFAl 


i92! 


PERSCIiPIACB 


EQU 


tFFAl 




FFA2 


i93! 


PERSCi!PIADA 


EQU 


tFFA2 


DHA PAGE NUMBER 


FFA3 


694: 


PERSCl!PIADB 


EQU 


IFF A3 


drive select, misc. control. 


FFA4 


495: 


PERSCI:I!5C«DSTS 


EQU 


$FFA4 


COHHAND / STATUS RESiSTER 


FFA5 


h%i 


PERSChHDTRACK 


E8U 


$FFA5 


CURRENT TRACK RESISTER 


FFA6 


497: 


PERSCIiBDSECTOR 


EQU ^ 


tFFA6 


TAR8ET SECTOR RESISTER 


FFA7 


698: 


PERSCIiKDDATA 


EQU 


JFFA7 


TAR6ET TRACK / DATA REGISTER 




699: 




FIN 


PERSCI 






700: 










0002 


701: 




IF 


DAHFLOPPY 




FF80 


702: 


DAHFLQPPYiPIACA 


E8U 


$FF80 




FF81 


703: 


DA«FLOPPY:PIACB 


EQU 


$FF81 




FF82 


704: 


DAHFLOPPYiPIADA 


EQU 


$FFB2 


DKA PAGE NUMBER 


FF83 


705: 


DAHFLQPPY!PIADB 


EQU 


*FF83 


drive select, ffiisc. control 


FF84 


706: 


DAHFLOPPYiBDCHDSTS 


EQU 


$FF84 


COMHAND / STATUS RESISTER 


FF85 


707: 


OAflFLDPPY!»TRACK 


EQU 


IFF85 


CURRENT TRACK REGISTER • 


FF86 


708: 


DAHFLOPPYiHDSECTOR 


EQU 


$FF86 


TARSET SECTOR REGISTER 


FF87 


709! 


DAHFLOPFY!«DDATA 


EQU 


$FF87 


TARGET TRACK / DATA REGISTER 




710: 




FIN 


DAHFLOPPY 





HAL/ 6800 i.3F 
01/14/83 11 
lOVFC.ftSH 

881B, 
8818 FE9013 
881E iC3E 
8820 2i06 
8822 4C3D 
8824 2602 
882& 6C3C 

8828 

8828 32. 

8829 33 
8e2A A744 
882C E745 
882E 7EBEi5 



88iA SMSDRIVERS 
39!33| Page 34; Form 



712: FIN 

713; COyNTCOfflAND 

714: LDK 

715: INC 

716: BNE 

717: INC 

718: BNE 

719:. INC 

720: WAITFORINTERRUPT 

721: , PULA 

722: PULB 

723: STAA 

724: STAB FDDSTATE+l,]i 

725: JHP SD08+SB0S:RTI 



m SDOS I/O drivers for MaveHate Jupiter II 
1 Controller Priaitives 

DAHFLQPPVIPERSCI 



!C) 1978 SOFTWARE DYNAHICS tit 



DISKINTEB 

DSKINF0:0PSC0UNT+2,)( 

MAITFORINTERRUPT 

i)SKINFO:OPSCOUNT+l,X 

WAITFORINTERRUPT 

DSKINFO:DPSCOUNt,)! 



FDDSTATEjX 



COUNT « OPERATIONS ISSUED TO FLOPPV 



11AL/6800 i.3F 
01/14/83 11:39 
lOVFD.ASH 



882E SDQSDRIVERS 
!33j Page 35; Forni 1 



m SDQS I/O drivers for WaveHate Jupiter II (0 1978 SOFT^ftRE DYNAHICS Ut 
Controller Prifliitives 



8831 
8831 Ai04 
0833 FE9013 
8836 A148 
8838 2623 
883A a649 
883C EE2B 
883E A112 
8840 261B 
8842 FE9013 



8845 
8845 Ai48 

8847 36 

8848 E649 
884A EE2B 
884C A612 
884E FE9015 
8851 A705 
8853 E706 

8855 32 

8856 A704 
3858 FE90i3 
8S5B 0C39 

8850 
885D FE90I3 
8860 8DE3 
8862 0D39 , 



0002 



727! 
728! 
729: 
730: 
731: 
732: 
733: 
734: 
735: 
736: 
737: 
738: 
739: 
740: 
741: 
742: 
743: 
744: 
745: 
746: 
747: 
748: 
749: 
750: 
751 ! 
752: 
753! 
754: 
755: 
756! 
757: 
758: 
759: 
760: 
761 ! 
762: 
763: 
764: 
765: 
766: 
767: 
768: 
769: 
770: 
771: 



I Test i^ an actual seek is required 

I if the drive nusiber has not changed, and the cylinder (track) number 

t has not changed, then no seek is necessary, and return is sade with 

I carry clear; otherwise, return is aade with carry set and the 

t previous cylinder number in the B register. 

t a side eHect is that the values of FDCYL, FDTARGETCYL, and FDDRIVE 

t are copied to the KB, regardless of whether a seek is necessary 

% (this ensures that the CCB is set up for a subsequent restore, read, 

* or write) 



TESTFORSEEK 
LDAA 
LDK 
CHPA 

BNE 
LDAA 
LDX 
CHPA 



} 



BSR 
OKRTS 



COPYDCBTOCCB 
LBAA 
PSHA 
LDAB 
LDX 
LMfi 
LDX 
STAA 
STAB 
PULA 
STAA 
LDX 
OKRTS 



CCB: DRIVE, X 

DISKINTDCB 

FDDRIVE, X 

DQSEEK 

FDCYL, X 

DSKINFD:SECTORDB,X 

RDSl!CYLINDER+l,X 

DQSEEK 

DISKINTDCB 

COPYDCBTOCCB 



FDDRIVE, X 

FDCYL, X 

DSKINF0!3ECT0RDB,X 

RDSI:CYLINDER+1,X 

DISKISTCCB 

CCB:CYL,X 

CCB:LASTCYL,X 



CCB: DRIVE,) 
DISKINTDCB 



DQSEEK ', seek is required 

LDX DISKINTDCB 
BSR COPYDCBTOCCB 
ERRORRTS 



IF 



PERSCI 



i1AL/i800 1.3F: 
01/14/83 l}!39 
iQVFD.ASil 

3864 
8864 B6FFA4 

8867 43 

8868 FE9013 
886B 39 

BS6C 
886C A604 
886E 8A08 
8870 B7FFA3 
8873 86FD 

8875 
8875 B7FFA4 
8878 7E881B 

8878 

887B 862F 
887D B7FFA4 

8880 8D0E 
8882 8D0C 
8884 SDOft 
8886 F6FFft4 

8889 53 
888A B6FFA3 
888D FE9013 

8890 

8890 39 

8891 

8891 862E 
8893 20E0 



8862 SDOSDRIVERS 
i33; Page 36; Fara 1 



%n SDOS I/O drivers for WaveHate Jupiter II (C) 1978 SOFTHARE DYKAfilCS t»i 
PerSci Controller Primitives 



773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 

793: 

794 
795 
796 
797 
798 
799i 
800 
801 
802 
303 
804 



PERSCI: STATUS 

LDAA PERSCliWDCMDSTS 

COHA 

IDX DISKIHTDCB 

RTS 

PERSChRESTDRE 

LDAA CCB; DRIVE, X 

ORAA #200001000 

STAA PERSCIfPIADB 

LDAA #(\X00000010)?!*FF 

PERSCI JlSSUECQHHAND 

STAA PERSCIiUDCHDSTS 

J«P CQUNTCOMHAND 



PERSCIiABQRT 

5 Hote that the Series 2000 does soisething funny here; saffiebody should go look. 



get the drive address and add in 
slow step, read, no DHA 

restore 



#«\X1 1010000) ItSFF 
PERSCI sWDCHDSTS 
PERSCI .-ABORT. RTS 
PERSCI: ABORT. RTS 
PERSCI ! ABORT. RTS 
PERSCI iSSCHBSTS 



LDAA PERSCI :PIADB 
LDX DISKINTDCB 
PERSCIjABQRT.RTS 
RTS 



LDAA 

STAA 

BSR 

BSR 

BSR 

LDAB 



abort with no interrupts 

wait about 30 uS for chip to settle 



return with status in B 



clear passible interrupt 



PERSCI: RESET 
LDAA 
BRA 



ttUUOlOOOD&IFF 
PERSCI: ISSUECOfflAMD 



abort with interrupt 



ftAL/6B00 1.3F! 


8893 


SDOSDRIVERS 


m SDOa I/O in 


01/14/83 ll839!33i Page 37,- 


Foris 1 


PerSci Control! 


lOVFS.ftSil 










8895 


806: 


PERSCI 


.SETSEEK 




8895 209ft 


807: 
808: 




BRA 


TESTFORSEEK 


8897 


809: 


PERSCI:SEEK 




8897 A604 


810;- 




LDAA 


CCBsDRiyEjX 


8899 B7FFA3 


811: 




STAA 


PERSCI ;PIADB 


889C ft606 


812: 




LDAA 


CCB:LASTCYL,X 


889E Ei05 


813: 




LDAB 


CCB:CYL,X 


88A0 43 


814: 




COIIA 




88A1 B7FFft5 


815: 




STAA 


PERSCI :«BTRACK 


88A4 53 


816: 




CQHB 




8BA5 F7FFA7 


817: 




STAB 


PERSCI ;1*BDATA , 


SOAB BiEi 


818: 




LDAA 


#(\7.000li001)J!$FF 


88AA 20C9 


819: 
820: 




BRA 


PERSCI: ISSUECOfWAND 


38AC 


821: 


PERSChVERIFYSECTOR 


88AC ft604 


822: 




LDAA 


CCB:BRIVE,X 


88AE B7FFA3 


823; 




STAA 


PERSCI ;PIADB 


88B1 200E 


824: 




BRA 


PERSCI :READSECTOR. 2 



{O 1978 SOFTMARE DYNAMICS Ut 



seek, load head, no verify 



don't want either write or 



HAL/6800 i.3F: 


88B1 


SDOSDRIVERS 


m SDOS I/Q drivers for MavEflate Jupiter II (C) 1978 


01/14/83 11:39533; Page 38; Form 1 


PerSci Controller Priaitives 


lOVFD.ASH 










88B3 


826: 


PERSChREADSECTQR 




88B3 F7FFA2 


827: 


STAB 


PERSCL-PIADA 


set DMA page nutber 


88B6 E604 


B28i 


LDAB 


CCB: DRIVE, )( 


set up controller for read, DHA 


8888 CA40 . 


829: 


DRAB 


#7.01000000 




88BA F7FFA3 


830: 


STAB 


PERSCI ;PIADB 




88BC 43 


831; 


DOHA 






88BE B7FFA& 


832; 


STAA 


PERSCI :HIiSECTQR 


set the sector nuaber 


88C1 


833! 


PERSCI:REABSECT0R.2 




8SC1 6I)837B 


834: 


JSR 


PERSCI: ABORT 


load head, if necessary 


88C4 8677 


. 835: 


LDAA 


«(\X10001000)WF 


read sector 


8806 C520. 


836: 


BITB 


#200100000 


head, load' status 


88C8 2602. 


837: 


BNE 


PERSCI !REABSECTOR.l 




8BCft 8804 


838: 


EORA 


#7.00000100 


make the head load 


88CC 


839: 


PERSChREADSECTOR.l 




88CC 7E8875 


840: 
841: 
842: 


JHP 


PERSCI :ISSUECOHMAND 




88CF 


PERSCIiliRITESECTOR 




88CF F7FFA2 


843: 


STAB 


PERSCI iPIADA 


set DMA page nusiber 


88D2 E604 


844: 


LDAB 


CCB:DRIVE,)! 




8BD4 CACO 


845: 


ORAB 


IXi 1000000 


set up controller for writs, DHA 


88B6 F7FFA3 


846: 


STAB 


PER3CI:PIADB 




88D? 43 


847: 


COHA 






88DA B7FFA6 


848: 


STAA 


PERSCI :ilBSECTOR 


set the sector nuaber 


SSDD 8D887B 


849: 


JSR 


PERSCI: ABORT 


see if necessary to load heads 


88E0 8657 


850: 


LDAA 


»(V/.10i0i000)yFF 


write sector 


88E2 C520 


851: 


BITB 


»X00100000 




88E4 2602 ' 


852: 


BNE 


PERSCI:tSRITESECTOR.l 




88E6 8804 


853: 


EORA 


. #X00000100 


load the heads 


88E8 


854: 


PERSCIiBRITESECTOR.I 




B8E8 7E8875 


855: 


m 


PERSCI: ISSUECOHKANB 






856: 


FIN 


PERSCI 




0002 


857: 


IF 


BAMFLQPPY 





llftL/6800 i.3F: 


88E8 


SBDSDRIVERS Ut SDOS I/O driver 


01/14/83 ll!39!33i F 


*age 39| Font 1 DftM Floppy Control 


lOVFS.ASH 






88EB 


859: 


DAHFLOPPYiSTftTUS 


aSEB B6FF84 


860 


LBAA DftHFLOPPY:»DCMDSTS 


88EE FE9013 


861: 


LDX SISKINTBCB 


88Fi 39 , 


862 
863: 


RTS 


88F2 


864 


DAHFLOPPYi RESTORE 


3BF2 fti04 


865: 


LDfiA CCB: DRIVE, )( 


B8F4 B7FF83 


866 


STAA DAHFLOPPYiPIADB 


3SF7 8602 


867: 


LDAA iXOOOOOOlO 


88F9 


868 


DAHFLOPPYilSSUECOHHAND 


8SF9 B7FF84 


869: 


STAA DARFLOPPY:»CHDSTS 


88FC 7E881B 


870 
871: 


JHP COUNTCOHItAND 


88FF 


872 


DAHFLOPPY: ABORT 


88FF 86D0 


873: 


LDAA «Xi 1010000 


8901 B7FF84 


874 


STAA DAMFLDPPY:»DCHDSTS 


8904 8D0!) 


875, 


BSR DAHFLOPPY: ABORT. RTS 


890i 8D0B 


876 


BSR DAHFLOPPY [ABORT. RTS 


8908 8B09 


877 


BSR DAHFLOPPY: ABORT. RTS 


890A F6FF84 


878 


LDAB DAHFLOPPY! WDGHSSTS 


890D B6FF83 


879 


LDAA DAHFLOPPY: PI ADB 


8910 FE9013 


880 


: LDX DISKINTOCB 


8913 


881 


DAHFLOPPY: ABORT. RTS 


8913 35 


882 
883 


; RTS 


8914 


884 


: DAHFLOPPY: RESET 


3914 B6D1 


885 


LDAA tXliOlOOOl 


8916 20Ei 


886 


: BRA DAHFLOPPY: ISSUECOHHAND 



m SDOS I/O drivers for MaveHate Jupiter II !C! 1978 SOFTsiARE DYNAHICS Ut 



restore 



abort with no interrupts 

wait about 30 uS lor chip to settle 



return with status in B 
clear possible interrupt 



abort with interrupt 



HSL/6800 1.3F! 


8916 


SBOSDRIVERS 


l*» SDDS I/O divers 


i for, WaveHate i 


01/14/83 n;39!33j Page 40| Form 1 


DAH Floppy Controlli 


»r Primitives 


IDVFD.ftSH 










8918 


888: 


DftHFLQPPYiSETSEEK 




8918 7E8831 


889: 
890: 


J«P 


TESTFORSEEK 




891B 


891: 


DftHFLOPPY:SEEK 






891B AM4 


892: 


LDAA 


CCB:DRIVE,5( 




89 ID B7FF83 


893: 


STAA 


MHFLOPPY:PIADB 




8920 Ai06 


894: 


LDAA 


CCB:LASTCYL,)( 




8922 E605 


895: 


IBAB 


CCBsCYL.X 




8924 B7FF85 


896: 


STAA 


DAMFLOPPYrBBTRACK 




8927 F7FF87 


897: 


STAB 


DAHFLQPPY:iJDDATA 




892A 8il9 


898: 


LDAA 


txooouooi 


seek, load hea( 


892C 20C& 


899: 

900: 


BRA 


DAHFL0PPY:ISSUEC011«AND 




892E 


901: 


DAHFLOPPYfVERIFYSECTOR 




892E B6FFS3 


902: 


LDAA 


DAHFLOPPY:PIADB 


turn oii Hrite: 


8931 B42F 


903! 


ANDA 


#7.00101111 




8933 E7FF83 


904: 


STAA 


SAHFLOPPY:PIADB 




8936 200D 


905: 


BRA 


BAHFL0PPY!READSECT0R.2 





(C) 1978 SOFTWARE DYNAHICS Ut 



DHA 



ML/680& i.3F! 8936 SDOSDRIVERS 
01/14/83 Us39:33| Pag6 41; Fors 

I0VFD.A3H 



iU SMS I/O drivers for WaveHate Jupiter II 
DAH Floppy Controller Prisitives 



(C) 1978 SOFTWARE DYNAMICS Ut 



8938 


907! 


DAMFLQPPYiREAI 


(SECTOR 




8938 F7FF82 


908 


STAB 


DAHFLOPPYiPIADA 


set DHA page number 


893B E604 


909! 


LDAB 


CCB: DRIVE, X 


set up controller for read, 


893D CA40 


910 


QRAB 


#7.01000000 


read, DMA 


893F F7FF83 


91l! 


STAB 


BAMFLOPPYsPIADB 




8942 B7FF86 


912 


STAA 


DAHFLQPPYsHDSECTOR 


set the sector number 


8945 


913. 


DAtlFLQPPVsREADSECTDR.2 




8945 8DB8 


914 


BSR 


BAHFLOPPYi ABORT 


load head, if necessary 


8947 8680 


915 


LDAA 


SX 10000000 


read sector 


8949 C520 


916 


BITB 


#7.00100000 


head load status 


894B 2i02 


917 


BNE 


DAHFLOPPYsREAOSECTOR.i 




894D 8A04 


918 


: ORAA 


♦XOOOOOIOO 


sake the head load 


894F 


/ 919 


DAHFLOPPY:READSECTOR.l 




894F 7E88F9 


920 


! J!1P 


DAHFLOPPYsISSUECOHHAND 





DMA 



HAL/i800 i.3Fj 
01/14/83 tls39: 
IDVFB.ftSH 

8952 
, 8952 F7FFe2 
8955 Ei04 
8957 CACO 
8959 B7FF86 
895C B6FF85 
895F 8115 
8961 2B02 
8963 CftlO 

8965 
8965 F7FF83 
8968 BD8aFF 
896B 86A0 
896B C520 
896F 2602 
8971 BA04 

8973 
8973 7E88F9 



894F SDOSBRIVERS 
33; Page 42; Form 1 



in SDOS I/Q drivers tor KaveHate Jupiter II (C) 1978 SOFTWARE DYNAMICS ttt 
DAK Floppy ControUer Priisitives 



922! 
923: 
924! 
925: 
926: 
927: 
928: 
929: 
930! 
931: 
932! 
933: 
934: 
935: 
936: 
937: 
938: 
939: 
940: 



DAMFLQPPYiKRITESECTOR 

STAB DAHFLOPP,Y!PIADA 

LDAB CCB!BRIVE,ii 

ORAB 1X1 1000000 

STAA BAHFLOPPYsSDSECTOR 

LBAA DAHFLOPPYiHDTRACK 

CHPA #21 

BHl CAHFLQPPY!HRITESECT0R.2 

DRAB #7.00010000 

DAHFL0PPY:WRITESECTf)R.2 



STAB 

m 

LDAA 
BITB 
6NE 
ORAA 

DAhFLOPPY!«RITESECTOR.l 
m? BAilFLOPPY 
FIN BAHFLQPPY 



DAMFLOPPY:PIADB 

DAHFLOPPY: ABORT 

#210100000 

#7.00100000 

DAHFLOPPY: »RITESECTOR.i 

#7.00000100 



ISSUECOHHAND 



set DHA page nuaiber 

set up controller for write, DMA 

target sector 

check if write pre-cospensation needed 



turn on write. pre-CDspensation 



see if necessary to load heads 
write sector 



load the heads 



RAL/iaOO 1.3F! 
01/14/83 Il:39i 
lOVFD.ASM 

0002 

8976 
897& CE9017 

0002 
8979 2003 



0002 
897B 

897B CE9045 

897E 
897E FF9015 
8981 AD09 
8983 FE9015 
8986 6fi03 
8988 261F 
898A EE2C 
898C A600 
898E 2631 

0002 



8990 8604 
8992 C612 

8994 
8994 FF90i3' 
8997 A701 
8999 E702 
S99B 6C00 
8991) FE9015 
89A0 6C00 
89A2 6F04 
89A4 6ft04 
89A6 7ES75E 



8973 SDOSCRIVERS 
33j Page 43| Foru 1 



m 3D0S I/O drivers for Baveflate Jupiter il (C) 1978 SOFTWARE DYNAHICS iit 
Virtual Floppy Driver Time-Qut Routines 



89A9 49 
89AA EE2C 
a9AC A600 , 
a9AE 2606 
8?B0 8604 
89B2 C624 
89B4 25DE 

89B6 
89B6 FE9015 
89B9 8600 
89BB C645 
89BD A726 
89BF E727 

89Ci 
89C1 7EBE15 



942! 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 i 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
97 i 
972 
973 
974 
975 
976 
977 
978 

979; 

980 

981; 

982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 

993; 

994 
995 
996 



IF PERSCi 
PERSChTIHEQUT 

m SCCB.-PERSCi 
IF DAHFLOPPY 
BRA DISKTIMEQUT . 

FIN DAHFLdPPy 
FIN ' PERSCI 
IF DAHFLOPPy 
DAHFLOPPYiTIHEOUT 

m #CCB:DAHFLOPPY 



FIN 
DISKTIHEQUT 
STX 
JSR 
LDX 
DEC 



m 

LDAA 
BNE 

IF 



DAHFLOPPY 

DISKINTCCB 

CCBi STATUS, X 

DISKINTCCB 

CCBiTIHEDUTjK 

DISKTIMEQUTl 

CCB!CURRENTDCB,X 



save CCB address 

touch controller to keep drive going 

CDONT OFF 1 SEC 

B/ TIHER NOT ZERO YET 

point at DCB, again 



DCB:D0NEFLA6,X 
DISKTIKE0UT2 
DAHFLOPPY 

t should have code here to reset "load 
FIN 

LDAA IERR:DEVICETIHED0UT/256 

LDAB #ERR.!DEVICETI!1ED0,UT?t$FF 

DISKTIMEOOTERRQRED ; tiseout detected 



B/ DISK IS DONE, GO AWAY 
both heads' bit ?? 



STX 

STAA 

STAB 

INC 

LDX 

INC 

CLR 

DEC 

JNP 

DISKTIHEQUT! 
, RQLA 
LDX 
LDAA 
BNE 
LDAA 
LDAB 
BCS 

BISKTIfiEOUTlA 
LDX 
LDAA 
LDAB 
STAA 
STAB 

DISKTINE0UT2 
JHP 
FIN 



DISKINTDCB 
DCB:LASTERROR,X 
DCBsLASTERROR+l,X 
DC'B!DQNEFLAB,X 
DISKINTCCB 
CCB: BUSY, X 
CCBi DRIVE, X 
CCB! DRIVE, X 
DI8KINTUNEXPECTED 



an error 
reffleisber DCB address 
reffiefflber device error code 

HARK DISK AS 'DONE' 

point at 'controller busy' flag 

and iiake it unbusy 

FORCE SEEK y/VERIFY ON NEXT READ/HRITE 



CCBiCURRENTDCB,X 

DCBsDDNEFLABjX 

DISKTIHEOUTIA 



I (X) -> controller table 

save device ready status in "carry 

find DCB for device 

is device done ? 

b/ yesj just keep it spinning 
IERRiDEVICENQTREADY/256 assuise the sorst... 
IERR:DEVICEN0TREADYI:JFF 
DISKTIHEOUTERRORED b/ drive not ready after 1 second 

DISKINTCCB 

tlilTICKSPERSECOND+NTI!1E0UTBL0CKS)/256 

IMITICKSPERSECOND+NTIHEOUTBLOCKSlitFF 

CCB! TIHEOUTBLK+TIHEOUT: FUSE, X plant a l-second fuse 

CCB!TIHE0UTBLK*TIHE0UT:FUSE+1,X 

SDOS+SDQS:RTI •" 
lODRIvERBODY 



HAL/6B00,1.3F: 89C1 SSOSCRIVERS 
01/14/83 11539:33; Page 44; Fom I 
lOVFD.ASR 

997 

411 

0001 412 

413: 

0001 1 



m SDOS I/a drivers for BaveHate Jupiter II (C) 1978 SOFTWARE DVNAHICS It* 
Virtual Floppy Driver' Tiffle-Qut Routines 



FIN 

IF STORASEDEHON 

INCLUDE lOSTQREDEHOM.ASH 

. If lODRIVERBODY 



HAL/6800 i.3F! 89C1 SDOSDRIVERS 
01/14/83 lli39!33| Page 45; Fom 1 
lOSTOREQEHQN.ASH 

3: t 



0200 

0001 
0000 

0000 



0001 

0000 

0000 



0001 
4E34 

000! 
0001 
0080 

0001 
0002 
0003 

0005 



89C4 
0042 

0042 0001 

0043 0001 
0044 
89C4 



4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
15 
Ih 
17 
18 
19 
20 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 

33; 

34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 



*« SDOS I/O drivers for HaveHate Jupiter II (0 1978 SOFTMRE DVNAHICS it* 
m THE SD STORAGE DEHON DRIVER Hi 

DRIVES IHI7710 HITH 7711 INTELLI6ENT CONTROLLER... 
VIA A "VIA" (A WONDERFUL ROCKWELL PART) 



EQUATES FOR WINCHESTER DRIVER 
EQU 512 



WDCWBPS 



IHI7711 



IMI5007 



WDCNSPT 

WDCNTPC 
WDCNCVL 

WDCFATAL 

WDCFQRHAT 

WDCREADCHD 

WSCWRITECMD 

WBCRETRY 



WDCREADMRITE 
HDCDRIVE 

WDCSIZE 



IFUND IHI7711 

EQU 

FIN 

IF IHI7711 

FIN 

IFUND IHI5007 

ESU 

FIN 

IF IHI5007 

FIN 

IFUND WDCNSPT 

EQU 20020 

FIN 

EQU 

EQU 

EQU 

EQU 
EQU 

EQU 

E0U 



1 
1 
$80 

1 
2 
7. 



5 512 BYTES PER SECTOR (TRANSFER) 



jiini-wini 



DEFAULT TO. 77 IOC 



i RETRY TYP^ ERROR 



rFORHAT ENTIRE DISK COfflAND 
I CONTROL READ COHhAND 
; CONTROL WRITE CQHKAND 



I FAILURE RETRY COUNT 



WINCHESTER DISK CONTROLLER DCS DEFINITIONS 



SET 
ORG 
RNB 
RHB 
EQU 



t 

DSKINFOsSIZE TACKS ON TO BOTTOH OF DISK, INFO TABLE 

1 IS READ, <>0 IS. WRITE 

1 DRIVE NUHBER 



11AL/6800 i.3F: 0043 SDOSDRIVERS 
0t/14/B3 11:39:33| Page 4i5 For« 1 
iOSTOREDEHQN.ASH 

47: ; BRANCH TABLE POINTED TO BV DCB AND USED BV SDOS 



m SDOS 1/0 drivers for Havellate Jupiter II (0 1978 SOFTWARE DYNAHICS Ut 
m THE SD STORAGE DEMON DRIVER tU 



89C4 9E2C 
89C6 B9E9 
0908 89E5 
89CA 8A22 
89CC aEDB 
89CE 89D0 

89D0 
89D0 SUl 
89D2 274C 

S9D4 8115 
89D6 2703 

89D8 7E8EDB 

89DB , 
8908 aiOl 

89DD mh 

89DF A742 

89EI 8i01 
89E3 200C 

89E5 
89E5 8603 

89E7 2002 

89E9 
89E9 8602 

89EB 
89EB DE06 

89ED A742 

89EF 8605 
89Fr 

89Fi B7932D 

a9F4 6F0i 

89F6 6F02 

89F8 CE9325 

89FB A600 
89FD 2603 

89FF BDBE2ft 

8A02 
8A02 7F9325 



WDCfiRIVER 



MDCCONTROL 



HDCFDRMATX 



48: 
49! 
50: 
51: 
52: 
53: 
54: 
55: 
56: 
57: 
58: 
59: 
60: 
61: 
62: 
63: 
64: 
65: 
66: 
67: 
68: 
69: 
70: 
71: 
72: 
73: 

74: aDMRITE 
75: 
76: 
77: 

78: WDCREAD 
79: 

80: raCOPSET 
81: 
82: 
83: 
84: 
85: 

86: WDCSETRETRVl 
87: 
38: 
89: 
90: 
91: 
92: 
93: 
94: 
95: 
96: 
97: 
98: 
99: 
100: 
101: 



WDCSETliP 



FDB 
FDB 
FDB 
FDB 
FDB 
FDB . 

iCHPA 

CHPA 

BEQ 

;CHPA 

CHPA 

BEQ 

;JHP 

JMP 

jLDA 

LDAA 

iLDX 

LDK 

jSTA 

STAA 

;LDA 

LDAA 

SRA 

fLDA 
LDAA 
BRA 

|LDA ■ 
LDAA 
:LD)i 
^ LDK 
1ST A 
STAA 
|LDA 
LDAA 
ENTRY POINT 
5STA 
STAA 
:CLR 
^ CLR 
iCLR 
CLR 
;LD)! 
LDX 
;LDA 
LDAA , 
BSE 
5JSR 
J3R 
;CLR 
CLR ■ 



HDCINIT 

WCREAD 

«DCWRITE 

HDCUAITDONE 

ILLDEVICEQP 

MDCCONTROL j 

ICC!DISHOUNTDISK 

tCC:DIS«QUNTDISK 

«DCOKRTS 

»CC:FORHAT 

#CC:FORHAT 

MDCFORHATX 

ILLDEVICEOP 

ILLDEVICEQP 

«SJDCFOR«AT 

S«DCFDRHAT 

DCBPD INTER 

DCBPOINTER 

SDCREADSRITE.K 

»DCREAD«RITE,X 

«1 

#1 

S^DCSETRETRYl 

t8DC«RITEC11D 
#HDCBRITECHD 
NDCOPSET 



iWDCREADCMD 

ll^DCREADCHD 

DCBPOINTER 

DCBPOINTER . 

«DCREAD«RITE,r | 

WDCREADffilTE.X 

ISDCRETRY ;. 

#^DCRETRY 

FOR HDCFORilATX 

SDCRETRYCNT 

SDCRETRYCNT 

DCB;LASTERROR,X 

DCB:LASTERROR,,X 

DCB:LASTERR0R4-S,X 

DCB:LASTEhR0R*1,X 

#«BCINT£RFACE ; 

IWDCINTERFACE 

o,x 
05X 

SDCSETIJP 

3D0S+SDDS:«AITEVENT 

SD0S+SD0S:#.ITEVENT 

HSC INTERFACE' ; SE' 
ffiCINTERFACE 



; ROUTINE TO CLEAR VIA SO NO INTERRUPTS 
I READ SINGLE SECTOR 
j WRITE SIN6LE SECTOR , 

SDOS HANDLES ALL THE DISK STATUSES NECESSARY i 
: DISfiOUNT OR FORHAT COHHAND 



B/ DISfiOUNT, NOTHING SPECIAL NEEDED, 



B/ FORHAT OPERATION 



DO A "SECONDARY" FORHAT ffl^ERATION 



SET RETRY COUNT AT 



SET THE OPERATION 



SET RETRY COUNT 



aAIT FOR INTERFACE FREE 



INTERFACE BUSY 



I1AL/6800 1.3F: 8A02 SDOSDRIVERS 
01/14/83 ll!39i33i Page 47; Forsi 1 
IQSTOREBEKON.ASH 

102: 
8A05 DE06 103: 
8A07 FF9326 104; 

105: 



m SDOS I/O drivers for SaveHate Jupiter II 
m THE SB STORftSE DEHON DRIVER »S» 



iC) 1978 SQFTMARE DYNAHICS Ut 



8A0A 6F00 

8A0C CEOOOO 
8A0F FF932e 

BA12 CE8A5C 

8Ai5 BDBE24 

8A18 DEO& 

8A1A A642 

8A1C 8101 
8A1E 2702 

8A20 0C39 

8A22 
8A22 DE06 

aA24 A600 
8A26 2603 

8A28 Si)BE2A 

8A2B 
8A2B DEOi 

8A2I) EEOl 
•8ft2F 27EF 

8A31 7E8EEO 
8A34 0C39 



106 
107 
108 
109 
110 
HI 
112 
113 
114 
115 
Hi 
117 

113: 

119 
120 
121 
122 
123 
124 
125 
126 
127i 
128 
129: 
130 
131 
132 
133 
134 
135 
136 
137 



l^BCQKRTS 
SiSCWAITBONE 



HDCSAITl 



;LDX 
LDX 
SIX 
iCLR 

CLR 

\m 
m 

iLDX 

IDX 

;JSR 

JSR 

;LDX 

LCX 

;LDA 

LDAA 

iCilPA 

CHPA 

BEQ 

OKRTS 

ILDX 

LDX 

!LDA 

LDAA 

Wi 

',3m 

JSR 

flDX 

LDX 

:LDX 

LDX 

BEQ 

jJHP 

JHP 

QKRTS 



DCBPOINTER 
DCBPOINTER 

HCCDCBPOINTER ; 

DCB:DDNEFLA8,X j 

DCB:DOhtEFLAG,X 

«0 

10 

HDCCONJINUEPC j 

«8DCSTARTiO 

tWDCSTARTIQ ' 

SD0S+S»0S:ST6RTIQ 

SDOS+SDOS:STARTIO 

DCBPOINTER ; 

DCBPOINTER 

WDCREADKRITE,X 

WDCREADHRITEjX 

#«DCFQRi1AT 

#»DCFORHAT 

yDCilAITDQNE 



INTERRUPTS SERVICE DCB ADDRESS 
CLEAR DOME 



SET INTERRUPTS NQ 800D 



ENTER INTERRUPTS SERVICE CODE 



IF FORMAT CONTROL CALL OPERATION 



B/ 30 ^AIT FOR FORHAT OPERATION COHPLETE 



DCBPOINTER, 

DCBPOINTER 

DCB:DOMEFLAe,X 

DCB:DDKEFLfi6,X 

UDC»AIT1 

SDOS+SDOS:MITEVENT 

SDOS+SDOS:MITEVENT 

DCBPOINTER 

DCBPOINTER 

DCB:LASTERROR,X 

DCB:LASTERROR,X 

HDCOKRTS 

ERRETX 

ERRETX 



WAIT FOR TRANSFER DONE ' 



0001 
0000 



0000 

oooi 

,FF40 

0001 
0000 

0000 



0001 
FF4C 
FF4D 
1^F4E 

FF40 
FF41 
FF42 

FF43 
FF44 
FF45 
FF4i 
FF47 

FF4B 

FF4F 



0001 
0000 

0000 



t VIA RE8ISTER DEFINITIONS 
IFUND 

CONRAC EBU 
FIN 
IF 
FIN 
IFUND 
FIN 
IF 
EQU 
FIM 
IFUND 
EQU 
FIN 
IF 
FIN 



STORASEDEHONVIA 



EXQRCISQR 



I1AL/6800 1.3F: 8A34 SDOSDRIVERS 
01/14/83 11:39{33; Page 48i Form I 
lOSTQREDEMON.ASH 

139 

140 

141 

142 

143 

145 

146 

148 

149 

150 

151 

152 

153 

154 

155 

157 

158 

159 

liO 

161' 

1&2 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

131 

203 



m SDOS I/O drivers for MaveRate Jupiter II (C) 1978 SOFTSftRE DVNAftlCS tii 
m THE SD ST0RA6E DEHON DRIVER itt 



VIAPCR 
VIAIFR 
VIAIER 

VIADRB 

VIADRA 

VIADDRB 

VIADDRA 

VIATILL 

VIATICH 

VIATILLA 

VIATILH 

VIAACR 

t 

VIADRAF 



yHSERIES2000 



CONRAC 



CONRAC 

t^ftVEHATE 

MAVEftATE 
$FF40 

EXORCISOR 


EXORCISOR 



IF CONRACIBAMEHATEIEXORCISOR 

EaU ST0RA8EDEMDNVIA+*C | CONTROL RESISTER 

EQU VIAPCR+1 j INTERRUPT FLAG 

EBU VIAIFR+i ■ i INTERRUPT ENABLE 

ESU STORASEDEHQNVIAHO ; DATA RE6ISTERS 

E8U VIADRB+1 

ESU VIADRA+1 

ESU VIADDRBfi ; DATA DIRECTION REGISTERS 

EBU VIADDRA+i 

E8U VIftT!LL+l j INTERVAL TIHER HIBH BVTE 

EBU VIATlCH+1 • , 

EBU VIATlLLA+i 

ESU STORAGEDEHONVIA+JB ; AUXILIARY CONTROL REGISTER - USED FOR CLOCK 

, EQU , STORAGEDEMONV I A+$F i PORT. A -NO HANDSHAKE CONTROL 

FIN 

IFUND «HSERIES2000 

EBU 

FIN 

IF SHSERIES2000 i^ITH ITS INVERTED I/O ADDRESS LINES lYUKi) 

FIN M!iSERIES2000 



HAL/iSOO 1.3F5 8A34 SD03DRIVERS 
01/14/83 il!39:33i Page 49; Foris 1 
lOSTOREDEHON.ASR 
■ 8ft36 
8A36 7FFF43 

8A39 86DA 

8A3B B7FF4t 

8A3E B6FF41 i 

8A4i CE!38a 
8A44 09 
8ft45 26FD 

8A47 8612 

8A49 B7FF4D 

BA4C B7FF4E 

8A4F 86Ffi 

8A51 B7FF4C 
8A54 0C39 



m SMS I/O drivers fm/Wavellate Jupiter 11 (C) 1978 SOFT»ftRE DYNAHICS 1*1 
m THE SD STQRASE DEfflN DRIVER t» ' 



205: 


BDCRESET ;CLR 


206 


CLR 


207: 


;LDA 


208 


LDAA 


209: 


fSTA 


210 


""" fk 


211 ! 


■ — . .LBftT 


212 


■LDAA 


213! 


|LDX ' 


214 


LDX 


215. 


WDCRESETLP DEX 


2lt 


m 


217 


/^DA 


218 


I LDAA 


219 


A iSTA 


221 


I jSTA 


222 


! ISTAA 


223 


jLDA 


224 


I LDAA 


225 


jSTA 


226 


! STAA 


227 


OKRTS 



rioio 



VIADDRA 
VIADDRg 
»XliO! 
iXliOilOlO 
VIAPCR 
. VIAPCR 
VIADRA 
VIADRA 

i (20000*2) //8 
« (2000012) //8 

WDCRESETLP 

#7.00010010 

#7.00010010 

VlfilFR 

VIAIFR 

VIAIER 

VIAIER 

iXlllUOlO 

#7.1111^1010 

VIAPCR 

VIAPCR 





C^oific, V<(Qt/^ 




HAKE PAO SIDE OF VIA^ AN "INPUT" PORT 

■aATCH FOR READY'RWD tBUSDIR= ^-^ (QtiiUC ^^HKK/ 

VIA PROG CONTROL RES 

ISSUE STROBE SO READY PULSE CAN BE SEEN 

PULSE CB2 FOR 20Hs. AS PER 7711 RESET SPECIFICATION 

BAIT LONG ENOUGH FOR PULSE... 

RESET INTERRUPT BHS 

, ACK INTERRUPTS THAT HI8HT ACCIDENTALLY BE PENDING ^ . 
C&Si^/t^ 3>*-^ «wf»»>je caJii wv^* Wit -^tf "UK ♦ j 

; AND CLEAR THE INTERRUPT ENABLE 

I STOP PULSE, LEAVE CA2 IN "PULSE ON R/B° 



^^ ■'' '^.^^'^ 



xd H, ' 



U 






8fi82 A604 

8A84 BDS8E0 

8A87 mZ 

8fi8? BB8BE0 

8A8C FE932fe 

8A8F AM2 

8A9i 8102 
8A93 27C4 



MDC8EADSERVJ 



l^SCSTARTIQ 
WBCCHDFEED 



HAL/iSOO i.3F: 8A54 SDOSDRIVERS 
01/14/83 11:39:33} Page 50| ForiB I 
lOSTOREDEHON.ASH 

229 

230; 

8A56 231: MDCFORHSERVJ 

8A56 7E8B3B 232: 

233: 

8A59 234: 

8A59 7EBB4F 235: 

236: 

8fi5C 237: 

8A5C OE 238: 

239; 
8A58 FE9326 240; 
8A60 iC3E 241: 
8Ai2 2606 242: 
8A64 6C3B 243: 
8A66 2602 244: 
8A68 6C3C 245: 

8A6A 246: SDCCHBFEEDO 
8A6A BBBCIE 247: 

248: 
8A6BFE9326 249: 

250: 
BA70 A642 251: 

252: 
8A72 8B8BE0 253: 

254: 
8A75 A643 255: 

256: 
8A77 BD8BE0 257: 

258: 
8A7A A642 259: 

260: 
8A7C 8101 261: 
8A7E 27B6 262; 

SfiSO 263: HDCCfiBFEEDl 
8A80 Et2B 264: 

265: 

266: 



m SBQS I/O drivers for SaveMate Jupiter II 
»*t THE SB STORAGE DEMON DRIVER tti 



m 1978 SOFTWARE DYNAHICS Ut 



FEED THE WINCHESTER A COflHAND 



267: 
268: 
269: 
270: 
271: 
272: 
273: 
274: 
275: 
276: 
277: 
278: 



JHP 
JHP 



E8U 
CLI 

m 

INC 

BNE 

INC 

BNE 

INC 

iJSR 

JSR 

jLDK 

LDX 

;LBA 

LDAA 

jJSR 

JSR 

;LDA 

LDAA 

jJSR 

JSR 

jLDA 

LDAA 

jCHPft 

C«PA 

BE8 

;LDX 

LDx 

:LDft 

LDAA 

\m 

JSR 

iLDA 

LDAA 

fJSR 

JSR 

I LDX 

m 

:LDA 
LDAA 
jCHPA 
CHPA 

BE0 



BDCFQRflSERV 
MDCFORMSERV 

WDCREADSERV 
MCREADSERV 

f 



60 HAMDLE "FORHAT" CQtfflAND 



GQ DO READ SECTOR LOGIC 



CONTROL TRANSFERS HERE TO START DISK I/O 
: RE-ENABLE INTERRUPTS 



MDCDCBPOIKTER 

MDCBCBPOINTER 

DSKINFDsQPSC0UNT+2,X 

HDCCHDFEEDO 

DSKINF0:0PSC0UNT+1,)( 

«DCC!1DFEED0 

BSKINF0:0PSC0UNT,X 

WDCBAITAVAILABLE ; Ml FOR COKHAND AND DATA BUS AVAILABLE 

KDCSAITAVAILABLE 

WDCDCBPOINTER 

HDCDCBPOINTER 

»CREADiiRITE,X ; COHHAND TYPE 

»DCREAD«RITE,]( 

MDCOUTDATA ; OUTPUT COMMAND BYTE 

WDCOUTDATA 

SDCDRIVEjX ; DRIVE SELECT 

ffiCDRIVE.X 

HDCOUTDATA 

yDCOUTDATA 

MDCREADHRITEsX ; CHECK IF FORMAT COMHftfID 

WDCREAMRITEjX 

#SDCFORHAT 

WDCFQRI1AT 

WDCFORHSERVJ ; B/ ALL FORMAT PARAMETERS SENT! 

DSKINFO:SECTQRDB,X 

DSKINF0:SECT0RDB,1! 



RDSI;L'SN+2,X 

RDSI:LSN+2,X 

SDCOUTDATA 

iDCOUTDATA 

RDShLSS+ijX 

RDSlsLSS+l.X 

BDCOUTDATA 

BDCOUTDftTA 

BDCDCBPQINTER 

MDCDCBPOINTER 

l^SCREADmiTE,X 

PCREAD»R1TE,X 

tWDCREADCHD 

IWDCREADCMD 

WDCREADSERVJ 



FEED LOH BYTE OF 



DISK ADDRESS OUT 



AMD HISH BYTE LOGICAL DISK ADDRESS 



GO DO READ TRANSFER AND CHECK 



8ft95 

8fi95 Bmmi 

8A98 86FF 

8A9A B7FF43 

8A9D 
8A9D FSFFW 
8AA0 2iOS 
8AA2 08 
8AA3 09 
BAA4 4A 
8AA5 26F6 

8AA7 7E8B31 

8AAA 

8AAA FE932B 

SAAB A600 
8AAF F5FF4D 
8AB2 2602 

8AB4 BD6E 

OABi 
8AB& B7FF4I 

8AB9 A601 
8ABB F5FF41) 
BABE 2602 
8AC0 8B62 ; 

8AC2 
8AC2 B7FF4i 

8AC5 A602 
aAC7 F5FF4D 
BACA 2602 ■ 

8ACC 8S56 

8ACE 
8ACE B7FF41 



SAD I A603 
8AS3 F5FF4D 
8AD6 2602 
8AD8 SD4A 

8ADA 
SABA B7FF41 



8ADB A604 
8ABF F5FF4D 
8AE2 2602 
8AE4 8B3E 



WDCMRITESERV 



WCWRITEHAITiST 



MCWRITELQOP 



MAL/6800 i.3F! 8A93 SDOSDRIVERS 
01/14/83 li:39!33; Page 51; Fora 1 
iOSTDREBEMON.ASH 

281 

282 

283 

284 

285; 

286 

287 

288 

289 

290 

291 

292 

293 

294: 

295 

296 

297 

298 

299 

300 

301 

302: 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326; 

327 
328; 



m SBQS I/O drivers for SaveHate Jupiter II (C) 1978 SOFTWARE BYfJAHICS tit 
ttt THE SD STORAGE DEHON BRiVER tU 



330 
331 
332 
333 
334 
335 



IdRlTE TRANSFER SECTION 



HDCyRITEO 



BBCaRITEl 



MBC^RITE2 



i[)C«RITE3 



; WRITE 

;JSR 

JSR 

jLDA 

IDAA 

|STA 

STAA 

i »AIT 

BITS 

BNE 

INK 

DEX 

DECA 

BNE 

iJHP 

JHP 

i OUTPUT 

|LDX 

LDX 

|LBA 

LDAA 

BITS 

BNE 

6SR 

jSTA 

STAA 

;LDA 

LDAA 

BITB 

ISE 

BSR 

SSTA 

STAA 

jLBA 

LDAA 

BITB 

BNE 

BSR 

;STA 

STAA 

;LDA 

LDAA 

BITB 

BNE 

BSR 

;STA 

STAA 

iLDA 

LDAA 

BITB 

BNE 

BSR 



'SET VIA TO OUTPUT HODE (AHD SET UP 255 CYCLE COUNTER) 



5 SO AS TO OUTPUT A 512 BYTE SECTOR 



A SECTOR TO 7710 

WDCSET4TRANS ; SET X = PASE ADR 
lilDCSET4TRANS 
«FF 
ItFF 
VIADDRA 
VIADDRA 
FOR 1ST DATA REQUEST 
VIAIFR FIRST DATA REQUEST ARRIVE ? 
aDCWRITELOQP B/ YES, SIVE THE 7710 ITS DATA 
HO, DELAY A»HILE (???? Us. HAX) 

DOW COUNT FUSE 
aDCNRITEWAITlST 8/ MORE TIME TO WAIT 
HDCfiUIETl FUSE EXPIRED, SO DO HE! 
HDCSUIETi 



BYTES LOOP, 
«DCPOINTER 

HDCPOINTER 

o,x 

VIAIFR 

WDCSRITEO 

ffiCHRITEWAIT 

VIADRA 

VIADRA 

Ut 

1,1 

VIAIFR 

WDCSRITEl 

ttDCKRITEMIT 

VIADRA 

VIADRA 

2,X 

2,X 

VIAIFR 

iiDC!^RITE2 

HBCHRITEHAIT 

VIADRA 

VIADRA 

3,X 

3,X 

VIAIFR 

i«DC»RITE3 

HDCilRITEWiT 

VIADRA 

VIADRA 

4,X 

VIAIFR 

'»iDCSRITE4 
SDCaRITEaAIT 



OPTIHIZED FOR SPEED! 

5 SET POINTER TO NEXT BLOCK OF 8 BYTES 



FETCH BYTE TO FEED TO CONTROLLER 



5 IS 7710 READY FOR NEXT BYTE ? 
B/ USUAL CASE, 7710 IS READY FOR ANOTHER 
SI6H... GO MIT FOR 7710 TO BE READY 
I OUTPUT DATA BYTE AND ISSUE STROBE 

; FETCH BYTE TO FEED TO CONTROLLER 

; IS 7710 READY FOR NEXT BYTE ? 
B/ USUAL CASE, 7710. IS READY FOR ANOTHER 
SI6H... 60 WAIT FOR 7710 TO JE READY 
•; OUTPUT DATA BYTE AND ISSUE STROBE 

I FETCH BYTE TO FEED TO CONTROLLER 

! IS 7710 READY FOR NEXT BYTE ? 
B/ USUAL CASE, 7710' IS READY FOR ANOTHER 
8I5H... 80 MIT FCR 7710 TO BE READY 
; OUTPUT DATA BYTE AND ISSUE STROBE 

! FETCH BYTE TO FEED TO CONTROLLER 



; IS 7710 READY FOR NEXT BYTE ? 
B/ USUAL CASE, 7710 IS READY FOR ANOTHER 
SISH... BO yAIT FOR 7710 TO BE READY 
; OUTPUT DATA BYTE AND ISSUE STROBE 

i FETCH BYTE TO FEED TO CONTROLLER 

; IS 7710 READY FOR NEXT BYTE ;? 

B/ USUAL CASE, 7710 IS READY FOR ANOTHER 

SIGH... -60 MAIT FOR 7710 TO BE READY 



HAL/i800 1.3F: 8ftE4 SDOSDRIVERS 
01/14/83 ll:39!33j Page 52; Forfs 1 
lOSTORECEHDN.ASH 



m SDOS I/O drivers far »ave«ate Jupiter II fC> 1978 SOFTWARE DYNAHICS lit 
m THE SB ST0RA8E DEMON DRIVER Hi ■ 



8AEi 


336: 


KDCliRITE4 


8AEi B7FF41 


337! 
338! 




8AE9 A605 


339 




8AEB F5FF4I) 


340! 




8AEE 2602 


341 




8AF0 8B32 


342! 




8AF2 


343 


WDCWRITE5 


8AF2 B7FF41 


344: 
345 




8AF5 A606 


346! 




8AF7 F5FF4D 


347 




3AFA 2&02 


348. 




8AFC 8B24 


349 




8AFE 


350 


«DCaRiTE6 


SAFE B7FF4i 


351 

352 




BBOl A607 


353 




8B03 F5FF4D 


354 




8B06 2602 


355 




OBOS 8B1A 


356 




8B0A 


357 


: MDCTOITE7 


BBOfi B7FF4i 


358 
359 




880D B6932C 


360 




8B10 8B08 


361 
362 




0812 B7932C 


363 




8B15 2403 


364 




8B17 7C932B 


365 




8BiA ?ft?32A 


366 


! aDCBRITES 


8&1D 268B 


367 
368 




8B1F 7FFF43 


369 




8B22 2017 


370 





iSTA 

STAA 

;LDA 

LDAA 

BITB 

BNE 

BSR 

;STft 

STAA 

;LDA 

LDAA 

BITB 

BNE 

BSR 

;STA 

STAA 

|LDA 

LDAA 

BITB 

BNE 

BSR 

5STA 

STAA 

SLEA 

LDAA 

ADDA 

jSTA 

STAA 

BCC 

INC 

DEC 

BHE 

jCLR 

CLR 

BRA 



VIADRA 
VIABRA 
SjX 
5 X 

VIAIFR 
UDCI^RITES 
BDCMRITEHAIT 
VIADRA 
, VIADRA 
6,X 
6,X 

VIAIFR 
ttDCKRITE6 
HDCaRITEWAIT 
VIADRA 
VIADRA 
7,X 
7,]( 

VIAIFR 
«DCSRITE7 
WDCiJRITESAIT 
VIADRA 
VIADRA 
KDCPOINTER+1 
WDCPOINTER+1 
«8 

WBCPOINTER+1 
SDCPOINTER+l 
WDCBRITED 
MDCPOINTER 
BDCCOUKT 
WDCWRITELQOP 
VIABDRA 
VIADDRA 
SDCFORfiSERV 



5 OUTPUT DATA BYTE AND ISSUE STROBE 

; FETCH BYTE TO FEED TO CONTROLLER 

; IS 7710 READY FOR NEXT BYTE ? 
B/ USUAL CASE, 7710 IS READY FOR ANOTHER 
SISH... 60 «AIT FOR 7710 TO BE READY 
OUTPUT DATA BYTE AND ISSUE STROBE 

FETCH BYTE TO FEED TO CONTROLLER 



IS 7710 READY FOR NEXT BYTE ? 
B/ USUAL CASE, 7710 IS READY FOR ANOTHER 
SISH... 60 WIT FOR 7710 TO BE READY 

OUTPUT DATA BYTE AND ISSUE STRQBf 

FETCH BYTE TO FEED TO CONTROLLER 

IS 7710 READY FOR NEXT BYTE ? 
B/ USUAL CASE, 7710 IS READY FOR ANOTHER 
SIGH.... 60 mil FOR 7710 TO BE READY 
'j OUTPUT DATA BYTE AND ISSUE STROBE 

ADVANCE POINTER BY 8 BYTES 



B/ UPPER HALF DOES NOT NEED HODIFICATION 

PROPABATE CARRY TO UPPER HALF 

DOWN COUNT NUHBER OF 8 BYTE BLOCKS TO SEND 

B/ HORE 8 BYTE BLOCKS TO SRITE 

; HAKE VIA PORT AN INPUT PORT SHEN DONE 

60 i^AIT FOR 7710 TO FINISH OPERATION 



I1AL/680& 1.3F: 8822 BDOSDRiVERS 
(^1/14/83 il!39!335 Page 53; Forit 1 

lOSTDRECEHON.ftBH 



m SDOS I/O drivers for Mavetlate Jupiter II (C) 1978 SOFTWARE DYNAHICS Hi 
m THE SD STORAGE BEHON DRIVER »l 



8B24 
8824 36 
8B25 4F 
8B26 F5FF4D 
8B29 2WE 
8B2B 4A 
eB2C 26F8 
8B2E 31 

8B2F 

0000 

0002 
8B2F 31 

8B31 

8B31 3D8A3& 

8B34 864F 

8B36 7E8C8E 

8B39 32 
8B3A 39 

883B 

8B3B Ei)8C3C 

8B3E BDOCO? 

'8B41 BDeC84 
8B44 

8B44 FE9326 
8847 6C00 
8B49 k9325 

3B4C 7EBE18 



372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

385 

386 

387 

38; 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399: 

400; 

401 

402 

403 

404 

405: 

406 

407 

408 

409 

410 

411 

412 

413 



WCSRITEHAIT 



liCCWRITEWAITLOQP 



WBCQtilETERR 



WBCSUIETl 



HDCI^RITEi^AITEnT 



MSCFORMSERV 



«DCDQNE 



J «AIT 

PSHA 

CLRA 

BITB 

BNE 

DECA 

BNE 

INS 

1 7710 

;LEAS 

IF 

ELSE 

RPT 

INS 

FIN 

: IHI 

jJSR 

JSR 

;LDA 

LOAA 

|JMP 

JfiP 

PULA 
RTS 

EQU 

;JSR 

JSR 

J JSR 

JSR 

;JSR 

JSR 

EQU 

;LDX 

LDX 

INC 

INC 

iJHP 

JliP 



FOR 7710 TO BE READY FOR NEXT BYTE 

; SAVE THE DATA BYTE TO SEND 

I SET TIHEOUT LIHIT IN (A) 
VIAIFR ; LOOK AGAIN 
WDCWRITEWAITEXIT ; B/ FINALLY, IS READY! 

DOWN COUNT FUSE 
WDCBRITEijAITLOOP 8/ SOME FUSE STILL LEFT 

BANS! TIME'S UP... POP DATA BYTE TO BE SENT 
DID NOT RESPOND IN REASONABLE LENSTH OF TIME 
2,S POP RETURN ADDRESS 
2<0 



DRIVE DID NOT RESPOND IN REASONABLE TIME 



WDCRESET 
SDCRESET 
#7.1001111 

txiooiiu 

WDCFATALO 
8DCFATAL0 



MAYBE HITTIN6 BELOtf THE BELT iILL RE-SYNCH 
PICK UP VERY FUNNY ERROR STATUS 
60 STORE ERROR AND RETRY 

BET THE DATA BYTE BACK 



WDCMIT4INT 

y»CWAIT4INT 

WDCINDATA 

HDCINDATA 

«DCPROCST 

WDCPROCST 

i 

BBCBCBPOISTER 

ffiCDCBPOINTER 

DCBsDQNEFLAGsX 

WDCINTERFACE 

SDOS+SDQS: RESCHEDULE 

SDOS+SDQSsRESCHEDULE 



GO START INTERRUPT FOR COMMAND DONE 



CHECK DONE STATUS 



80 CHECK STATUS RETURN IF OK 



SET DONE 
INTERFACE DONE 




SckJM 



HftL/6800 1.3F! 8B4C SDOSDRIVERS 
01/14/83 ll!39!33| Page 54; Form 1 
lOSTQREEEMON.ASH 

415: I READ TRANSFER SECTION 



m SDOB I/D drivers for iJaveHate Jupiter II (C) 1978 SOFTtifiRE DVNftHICS Hi 

m THE SD STORAGE BEMN DRIVER Ut 



8B4F 
aB4F BD3C3C 

8B52 BD8C07 

BB55 BD8C84 

8BS8 BD8D01 
3B5B 

8B5B FE932B 
8B5E F5FF4D 
8B61 2602 
8B63 8D6E 

8Bi5 
8B65 B6FF4i 

BBiS A700 
8B6A F5FF4D 
8B6D 2602 
8B6F 8D62 

8B7i 
8B7i B6FF4i 

8B74 A701 
8874 F5FF4D 
8B79 2602 
8B7B 8K6 

8B7D 
SB7D B6FF4i 

8B80 A702 

8B82 F5FF4D 
8B85 2602 
8B87 8D4A 
8B89 

8B89 B6FF41 

8BSC A703 
8B8E F5FF4D 
8B91 2602 
8B93 8D3E 

8B95 
8B95 B6FF4i 

8B98 A704 
8B9A F5FF4D 
8B9D 2602 

8B9F BD32 

8BAi 
8Bftl BiFF4i 

8BA4 A705 



416: 

417: 

418: 

419: 

420: 

421: 

422: 

423: 

424: 

425: 

426: 

427: 

428: 

429: 

430: 

431: 

432: 

433: 

434: 

435: 

436: 

437: 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449; 

450 
451 
452 
453 
454 
455 
456 

457; 

458 

459 
460 
461 
462 
463; 
464 
465 
466 
467 
468 
469 



i^DCREADSERV 



WDCREADLQOP 



MCREADO 



HDCREADl 



fflCREAD2 



H2CREAD3 



«DCREAD4 



JSDCREAD5 



|JSR 

JSR 

,-JSR 

m 

;JSR 

JSR 

;JSR 

JSR 

3 INPUT 

jLDX 

LDX 

BITB 

6KE 

BSR 

iLDft 

LDAA 

I ST A 

STAA 

BITS 

BNE 

BSR 

;LDA 

LDAA 

;STA 

STAA 

BITB 

BNE 

BSR 

iLBA 

LDAA 

;STA 

STAA 

BITB 

BNE 

BSR 

|LDA 

LDAA 

jSTA 

STAA 

8ITB 

m£ 

BSR 

|LDA 

LDAA 

:STA 

STAA 

BITB 

BNE 

BSR 

;LDA 

LDAA 

SSTA 

STAA 



SAIT FOR 7710 INTERRUPT fiN READ COMPLETE- 



WDCMAIT4INT 

ilDCliiAIT4INT 

HDCINDATA 

WDCINDATA 

MDCPROCST 

MDCPROCST 

WDCSET4TRANS 

8DCSET4TRANS, ■ 

BYTES FDR SECTOR LOOP, OPTIMIZED FOR SPEED 



BET STATUS ON BUS 



80 PROCESS STATUS RETRY IF, NEEDED 



»DCPQINTER 

«DCPOINTER 

VIAiFR 

8DCREAD0 

KDCREADBAIT 

VIADRA 

VIADRA 

0,X 

VIAIFR 

UDCREADl 

SDCREADHAIT 

VIADRA 

VIADRA 

1,X 

i,X 

VIAIFR 

BDCREA52 

yOCREADHAIT 

VIADRA 

VIADRA 

2,1 

2 X 

VIAIFR 

HDCREAD3 

NDCREADSAIT 

VIADRA 

VIADRA 

3,X ' 

SjX 

VIAIFR 

WDCREftD4 

WDCREADWAlt 

VIADRA 

VIADRA 

4,X 

4,X 

VIAIFR 

SDCREADS 

MDCREADl^AIT 

VIADRA 

VIADRA 

S.X 

5,X 



BET POINTER TO NEXT BLOCK OF 8 BYTES 

IS ANOTHER DATA BYTE READY ? 
B/ DATA IS READY 
GO mn FOR 7710 READY HITH ANOTHER BYTE 
READ DATA AND ISSUE ACKNOWLEDGE PULSE 

SAVE DATA IN SECTOR BUFFER , 

IS ANOTHER DATA BYTE READY ? 
B/ DATA IB READY 
60 WAIT FOR 7710 READY WITH ANOTHER BYTE 
READ DATA AND ISSUE ACKNOWLEDGE PULSE 

SAVE DATA IN SECTOR BUFFER 

IS ANOTHER DATA BYTE READY ? 
B/ DATA IS READY 
aO WAIT FOR 7710 READY WITH ANOTHER BYTE 
READ DATA AND ISSUE ACKNOWLEDGE PULSE 

SAVE DATA IN SECTOR BUFFER 

IS ANOTHER DATA BYTE READY ? 
B/ DATA IS READY 
80 WAIT FOR 7710 READY WITH ANOTHER BYTE 
READ DATA AND ISSUE ACKNOWLEDGE PULSE 

SAVE DATA IN SECTOR BUFFER 

IS ANOTHER DATA BYTE READY ? 
B/ DATA IS READY 
80 WAIT FOR 7710 READY WITH ANOTHER BYTE 
READ DATA AND ISSUE ACKNOWLEDGE PULSE 

SAVE DATA IN SECTOR BUFFER 

IS ANOTHER DATA BYTE READY ? 
/ DATA IS READY 

GO WAIT FOR 7710 READY WITH ANOTHER BYTE 
READ DATA AND ISSUE ACKNOWLESBE PULSE , 

SAVE DATA IN SECTOR BUFFER 



I!AL/6800 i.3F: 


8BA6 


SDOSDRIVERS 


m SDOS I/O drivers for 


01/14/83 U!39!33| ( 


'age 55; Fors 1 


m THE SD STORAGE DEMO 


IQSTORESEHON.AStI 








8Bft6 F5FF4D 


470: 




BITB 


VIAIFR 


8Bft9 2602 


471 




BNE 


!*DCREAD6 


8BAB 8D2i 


472: 




SSR 


|jlDCREAD»AIT 


8BAD 


473 


«DCREAB6 


;LDA 


VIADRA 


8BAB B6FF4} 


474: 




LDAA 


VIADRA 




475 




5 ST A 


6,X 


8BB0 A706 


476, 




STAA 


6,X 


8BB2 F5FF41} 


477 




BITB 


VIAIFR 


8BB5 2602 


478. 




BNE' 


WDCREAD7 


8BB7 8D1A 


479 




BSR 


«DCREADMAIT 


SBB9 


480, 


WBCREAD7 


|LDA 


VIADRA 


8BB9 ^6FF41 


481 




LDAA 


VIADRA 




482 




|STA 


7,X 


8BBC A707 


483 




STAA 


7,X 




484. 




;LBA 


8DCP0INTER+i 


8BBE B6?32C 


485 




LDAA 


MCPOINTER+i 


8BC1 8B08 


436 




ADDA 


«8 




487 




iSTA 


MDCPOINTER+1 


3BC3 B7932G 


488 




STAA 


SDCPDINTER+1 


8BC6 2403 


489 




8CC 


MCREADD 


3BC8 7t:932B 


490 




INC 


SDCPOINTER 


8BCB 7A932A 


491 


: KDCREAED 


DEC 


MCCOUNT 


SBCE 268B 


492 




BNE 


MDCREADLOOP 




493 




',m 


MDCDONE 


8BD0 7EBB44 


494 
495 




m 


«DCDQNE 


8BB3 


496 


SiDC8EAD«AIT 


; »AIT FOR 7710 TO BE R 


BBD3 4F 


497 




CLRA 




8BD4 F5FF4D 


498 


WBCREADSAITLQOP 


BITB 


VIAIFR 


8ID7 2606 


499 




BNE 


WDCREADaAITRTS 


8BD9 4ft 


500 




DECA 




8BDA 26F8 


501 




BNE 


aDCREADWftlTLOQP 




502 




■,M- 


UDCaUIETERR , 


mm 7E8B2F 


503 
504 




JHP 


1^DC§UIETERR 


8BDF 39 


505 


: roCREADMAITRTS 


RTS 





IS ANOTHER DATA BYTE READY ? 
B/ DATA IS READY 
GO BAIT FOR 7710 READY WITH ANOTHER BYTE 
READ DATA AND ISSUE ACKNQ8LEBGE PULSE 

SAVE DATA IN SECTOR BUFFER 

IS ANOTHER DATA BYTE READY ? 
B/ DATA, IS READY 
60 mil FOR 7710 READY SITH ANOTHER BYTE 
READ, DATA AND ISSUE ACKN0HLED8E PULSE 

SAVE DATA IN SECTOR BUFFER 

I ADVANCE BUFFER POINTER BY 8 



B/ DON'T HAVE TO BUHP UPPER HALF 
DDBN COUNT » OF 8 BYTE BLOCKS TO SEND 

ALL DONE READING SECTOR i 



I mU FOR READY SIGNAL 

B/ 7710 IS NQH READY 

TIMED OUT ? 

B/ NOT YET 

TIJiED OUT, SOMETHING'S NRONSi 



llftL/6800 1.3F! 
01/14/83 11:39 
lOSTOREDEHON.AS 



8SE0 

8BE0 C6FF 

8BE2 F7FF43 

OSES B7FF4F 
8BEa 4F 
8BE9 
8BE9 F4FF4D 
8BEC C502 
8BEE 2606 
8BF0 4A 
8BF1 26F6 

8BF3 7E8B2F 

8BF6 

8BF6 C6FA 

8BF8 F7FF4C 

BBFB Cil2 

8BFD F7FF4D 

8C00 B6FF41 

8C03 7FFF43 
8C06 39 



SDCQUTDATAL 



8BDF SDOSDRIVERS 
335 Page 56; Fora 1 
11 

507: t 

508: t 

509: I 

510: WDCOUTDATA 

511 

512 

513 

514 

513 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527: 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 



PCOUTDATfil 



*l* SDQS I/O drivers ^or MaveHate Jupiter li iC) 1978 SCFT8ARE DYNAWCS Ui 
m THE 85 STORAGE DEHQN DRIVER lit 

SDCOUTDftTA — SEND (A) TD 7710 KHEM 7710 READY 
USED ONLY FOR PflRAHETER BYTES 



EQU 

|LDB 

LDAB 

iSTB 

STAB 

;STA 

STAA 

CLRA 

;LDB 

LDAB 

BITB 

BNE 

DECA 

BNE 

:JHP 

k? 

EQU 

;LDB 

LDAB 

I STB 

STAB 

jLDB 

LDAB 

I STB 

STAB 

;LDA 

LDAA 

fCLR 

CLR 

RT3 



t 

»*FF 

»*FF 

VIADDRA 

VIADDRA 

VIADRAF 

VIADRAF 

VIAIFR 
VIAIFR 
1X00000010 
KDCQliTDATAl 

MDCOUTDATAL 
SBCQUIETERR 
WDCQUIETERR 

t 

r/.ii 111010 
r/.iiiiioio 

VIAPCR 

VIAPCR 

#200010010 

I20001O01O 

VIAIFR 

VIAIFR 

VIADRA 

VIADRA 

VIADDRA 

VIADDRA 



; SELECT VIA HODE = OUTPUT 



; OUTPUT THE DATA, DON'T ISSUE PULSE (YET) 

J SET A LONG, FUSE 
: IS 7710 READY? 



5 YES 

; NO, DOWN COUNT FUSE 



I mim FUR BUSDIR SfllRG LOi^ 



i SEE MDCHRITEl FOR COMHENTS 
; ISSUE STROBE PULSE TO 7710 
I RESTORE VIA PORT TO INPUT HQDE FOR SAFETY 



BC07 
8K7 4F 

8C0B 
8C08 F6FF4D 
8C0B C502 
8C0D 2606 
8C0F 4A 
3C10 26F6 

8Ci2 7E382F 

8C15 

8C15 CtEA 

8C17 F7FF4C 
0000 



WDCINDATftO 



HftL/i800 1.3F: 8C0i SBOSDRIVERS 
01/14/83 lli39!33i Page 57; Fori 1 
IQSTOREDEtlON.ftSH 

542! * 

543: t 

544: t 

545: 

54i! BDCINBATA 

547: 

548: 

549: 

550: 

551: 

552: 

553: 

554: 

555: 

556: 

557: 

553: 

559: 

560: 

561: 

562: 

565: 

566: 

567: 

563: WBCWAITRTS 



USCINDATAl 



lit SDOS I/O drivers for Kavellate Jupiter II (C) 1978 SOFTWARE DYNAHICS Hi 
m THE SD STORAGE DEHON DRIVER »«« 

WDCINDATA — SET (A) FROM 7710 WHES 7710 IS REAEY 
USED ONLY TO READ STATUS FROM 7710 
ASSERT: VIADDRA=0 HERE 



8C1A B6FF41 
8C1D 39 



EQU 

CLRA 

jLDB 

LDA6 

BITS 

BNE 

DECA 

BNE 

;J«P 

J«P 

EOU 

5LDB 

LDAB 

I STB 

STAB 

IF 

FIN 

$LDA 

LDAA 

RTS 



t 

VIAIFR 
VIAIFR 
1X00000010 
MCINBATAl 

HDCItdDATAO 

WDC0UIETERR 

«DC8l)IETERR 

t 

txiuoioio 
«nioiOio 

yiAPCR 
VlftPCR 
CONfiAC 
CONRAC 
VIADRA 
VIADRA 



5 SET L0N6 FUSE 

; IS 7710 REABY «ITH DATA? 



; B/ SOHE MORE TIHE LEFT 



I 7710 IS READY WITH DATA FOR US 
I «ATCH FOR IFACTIVE G0IN3 HIGH 



??????? 8HY. ?????? 

j GET STATUS-, ACKNOWLEDGE 'READY' SIGNAL 



HAL/6800 1.3F! BCID SDOSCRIVERS 
01/14/83 li!39;33; Page 58| Foris 
lOSTQREDEHON.ASH 

570! 



1 



8C1E 
0001 

8C1E CE0460 
0003 

8C2i 

8C2i FiFF4D 
8C24 C412 

8C2i CI 12 
8C23 27F3 
8C2ft 4A 
8C2B 26F4 
8C2D 09 
8C2E 2iFl 

0000 

0002 

8C30 31 



8C32 BD8fi3& 

8C35 C624 
8C37 8604 

8C39 7E8CE8 



571 

572 

573 

574 

575 

576 

579 

580: 

581 

582 

583 

584i 

585 

586 

587 

588 1 

589i 

590 

591 

592 

595 

596 

597 

598 

599 

600 

601; 

602 
603 
604 

60: 



i 
t 

»l)C»ftITftVAILABLE 



*** 3D0S I/Q drivers for SavsRate Jupiter II 
m THE SD STQRASE DEHQN DRIVER II* 

WDCWAITAVAILABLE - «AIT FOR 7710 READY 



(C) 1978 SOFTWARE DYNAHICS III 



EGU 
IF 

m 

ELBE 
FIN 
S5WAITAVAILABLEL08P i 
jLDB 
LDAB 



I 

116800 

« (2I2500//256) I ( 1000// (4+2+2+4+2+4) ) 

S (2I2500//256) I (1000/ / (4+2+2+4+2+4) J 

{M6809) 



2.5 SECONDS AT 2HHZ 



jCHPB 
CHPB 



HAIT AT HOST 2.5 
VIAIFR 
VIAIFR 
#7.00010010 

r/.oooiooio ■ 
txoooiooio 

HDCWAITRTB 



.SECONDS FOR DRIVE TO BE READY 



CHECK: 



IS 7710 READY AND IBUS.DIR HISH 



DECA 

BNE 

DEX 

BNE 

;LEAS 

IF 

ELSE 

RPT 

INS 

FIN 

|JSR 

',m 

LDAB 
LDAA 
jJHP 

JHP 



I S/ 7710 IS READY 
NO, DOHN COUNT LOWER 8 BITS OF FUSE 
WDCiAITAVAILABLELOOP B/ FUSE NOT BURNED UP 

DOaN COUNT UPPER 16 BITS OF FUSE 

WCSAITAVAILABLELOOP 



2,S 
2<0 



THROS RETURN ADDRESS A«AY 



WDCRESET TRY TO 6ET DRIVE'S ATTENTION 

WCRESET 

«ERR;DEVICENOTREADY DECLARE DEVICE NOT READY 

#(ERR:DEVICENDTREADY)«FF 

«(ERR:DEVICEN0TREADY)/256 

racaUITWITHERR GO STORE ERROR CODE IN DCB 

WCQUITWITHERR 



HAL/6800 1.3F! 8C39 SDOSDRIVERS 
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lOSTOREDEftON.ASH 
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(C) 1978 SOFTWARE SYNAHICS iU 



8C3e 


607: 
608: 


MSCSAIT4INT , 


EQU 
;PULD 


i 


WAIT FOR "DONE" INTERRUPT 


8C3C 52 


609: 




PULA 






8C3D 33 


610: 




PULB 






8C3E 01 


611: 




SOP 




PREVENT mZ SELF INTERRUPT 


8C3F OF 


612: 




SEI 








613: 




|STD 


HDCCONTINUEPC 


; SAVE WHERE TO 80 ON CHB DONE INTERRUPT 


8C40 F79329 


614: 




STAB 


SDCCONTIHUEPC+1 




8C43 B79328 


615: 




, STAA 


WCCONTINUEPC 






616: 




•,m 


»DCDCBPOINTER 




8C4& FE9326 


617: 




LDX 


WDCDCBPQINTER 






618: 




;LDA 


WDCREADHRITE,X 




8C49 A642 


619: 




LDAA 


»DCREADMRITE,X 






620: 




ICHPA 


IMDCFORNAT 




8C4B 8101 


621: 




C«PA 


SKDCFQRHAT 




8C4D 2605 


622: 




BI^E 


WDCMAIT4IKT2 


5 B/ STANDARD 3 SEC WAIT 




623: 




5 LDX 


#0 


i FOREVER FOR FORHAT (TAKES 40 HINUTES 0! 


8C4F CEOOOO 


624: 




LDX 


to 




8C52 2003 


625: 
626: 




BRA 


WDWAIT4INT3' 




8C54 


627: 


»i)CiiAIT4INT2 


EQU 


1 






628: 




;LDX 


ftSITICKSPERSECOND+NTIHEOUTBLOCKS ' 


8C54 CE0135 


629: 




LDX 


tSITICKSPERSECOND+NTIMEOUTBLOCKS 


8C57 FF93C2 


630: 


HBCMIT4INT3 


STX 


BBCTIHEQiJTCOUNT 






631; 




jLDB 


r/iiooioooo 


.; SET VIA INTERRUPT ON iBUSDIR GQINB HI6I 


8C5A C690 


632: 




LDAB 


1210010000 






633: 




iSTB 


VIAIER 




8C5C F7FF4E 


634: 




STAB 


VIAIER 






635; 




;LDA 


VIAIFR 


; IS DRIVE DONE WITH TRANSFER ? 


SCSF B6FF4D 


636: 




LDftfl 


VlfilFR 




8C62 8510 


637: 




BITA 


#7.00010000 


...? 


8C64 2603 


638: 




SHE 


MDCISTERRUPT 


B/ YES (THIS COSE HERE TO SIHPLIFY SINGL 


8C66 


639: 


SBCINTUNEXPECTED 


MHP 


SDOS+SDOS:RTI 


; EXIT INTERRUPT SERVICE 


8C66 7EBE15 


640: 
.641: 




JfiP 


SDOS+SDQS:RTI 




8C69 


642: 


HBCINTERRUPT, ' 


|LDX 


SO 




8C69 CEOOOO 


643: 




LDX 


m 




8C6C FF93C2 


644: 




STX 


aDCTIHEOUTCOUNT 


; CLEAR TIHE OUT 




645: 




;LDB 


r^oooioooo 


I KILL THE INTERRUPT ENABLE 


8C6F C610 


646: 




LDAB 


#7.00010000 






647: 




,-STB 


VIAIER 




8C71 F7FF4E 


648: 




STAB 


VIAIER 






649; 




jLDX 


l«DCCONTINUEPC 




aC74 FE9328 


650; 




LDX 


itiDCCONTINUEPC 






651: 




;LDD 


SHDCINTUNEIPECTED RESET HHERE TO SO IF INTERRUPT 


8C77 C666 


652: 




LDAB 


#!WDCINTUNEXPECTED)^*FF 


8C79 868C 


653: 




LDAA 


#(8DCIflTUNEXPECTED)/256 




654: 




|STD 


8DCC0STINUEPC 




8C7i F79329 


655: 




STAB 


WDCCONTINUEPC+1 




8G7E B79328 


656: 




STAA 


yDCCONTINUEPC 




8C8i OE 


657: 




CLI 




I RE ENABLE INTERRUPTS - SO FLOPPY AND R 




658: 




jJMP 


0,X 


i RETURN TO CALLER 


8E82 6E00 


659: 




JHP 


0,X 





77i0C! 



TC CAN WORK 



HAL/i800 1.3FS 8C84 SDOSDRIVERS 
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8C84 4D 


661: WDCPR0C3T 


TSTA 




PROCESS STATUS BITS 


8C85 2706 


662: 


BE6 


BDCPROCSTOKRTS 


B/ NO TROUBLE AT ALL 


8C87 8D1D 


663: 


BSR 


WDCSAVESTATUS 


OOPS, HAD SQHE KIND OF PRQBLEH 


8C89 8580 . 


664: 


BITA 


»aDCFATAL 


WAS ERROR FATAL ? 


8C8B 2605 


665: 


BNE 


aDCFATALERR 


B/ YES 


8C8S 39 


666; WDCPRQCSTDKRTS 
667: 


RTS 




NON-FATAL ERROR, CONTINUE 


8C8E 8Dii 


668: «8CFATAL0 


BSR 


WDCSAVESTATUS 




8C90 2002 


669: 
670: 


BRA 


aDCFATAL2, 




8C92 


671; OTCFATALERR 


jLEAS 


2,S 


5 POP RETURN OFF STACK 


0000 


672: 
675: 


IF ■ 
ELSE 


2<0. 




0002 


676: 


RPT 


2 




8C92 31 


677; 
678: 


INS 
FIN 






eC94 7A932D 


679: «BCFATAL2 


DEC 


SDCRETRYCNT 


; ALL 9 LIVES USED UP ? 


8C97 273D 


680: 


BE8 


8DCQUIT 


S B/ YES, HE' RE DEAD 




681: 


;LDA 


MDCRETRYCNT 


ON PENULTIRATE RETRY ? 


8C99 B6932D 


682: 


LDAA 


KDCRETRYENT 






683: 


iCHPft 


«1 




8C9C 8102 


684: 


CHPA 


11 




8C9E 2603 


685: 


BNE 


JttDCCHDFEED 


B/ NO, JUST SEND COHHANDS ABAIN 




686: 


im 


WDCRE8ET 


I ON LAST TRY, HIT BELOW THE BELT 


-aCAO BD8A36 


687: 


JBR 


MDCRESET 




8CA3 


688: JMCCMDFEED 


;JRP 


BDCCMDFEED 




8CA3 7E8A5C 


689: 
690: 


JHP 


WDCCHDFEED . 




8CA6 


691: l^DCSAVESTATUS 


jLDK 


iJDCDCBPQINTER 


; SAVE ERROR STATUS 


8CA6 FE9326 


692: 


m 


HDCDCBPOINTER 






693: 


|LDX 


DSKINFQ:SECTORDB,X SAVE RDSI:LSN AS DSKIWFO:ERRLSN 


3CA9 EE2B 


694: 


LBX 


D8K!NF0:SECT0RBB,)! 




695: 


;LDB 


RDShLSNjX 




iCAE E602 


696: 


LDAB 


RI)Si:LSN,X 






697: 


jPSHD 




SAVE ERROR STATUS BYTE, UPPER 8 BITS OF LSN 


SCAD 37 


698: 


PSHB 






8CAE 36 


699: 


PSHA 








700: 


;LDD 


RDSI:LSN+1,X 




8CAF E604 


701: 


LDAB 


(RDSI:LSN+1)+1, 


t 


8CB1 A603 


702: 


LDAA 


RDSI;LSN+1,X 






703: 


;LD)! 


WCDCBPQINTER 




8CB3 FE9326 ' 


704: 


m 


HDCDCBPOINTER 






705: 


;STB 


DSKINF0:ERRLSN+1,3( 


8CB6 E74i 


706: 


STAB 


iD8KINF13:ERRLSN+l)*l,X 


8CB8 A740 


707: 


STAA 


DSKINF0:ERRLSN+1,X 




708: 


,=PULD 




RESTORE ERROR STATUS BYTE, UPPER 8 BITS OF 


8CBft 32 


709: 


PULA 






8CBB 33 


710: 


PULB 








711: 


iSTB 


DSKINFD:ERRLSN,X 


8CBC E73F 


712: 


STAB ' 


DSKINFO:ERRLSN,)( 




713: 


|LDB 


ISDCREADffilTE,]! 




8CBE E642 


714: 


LDAB 


WCREADSRITE5X 


, 




715: 


■,mn 


■ #iSBCREADCHD 


IS THIS A READ OR A islRITE COMHAND .? 


8CC0 Ci02 


716: 


CHPB 


IMDCREAKilD 




8CC2 2709 


717; 


BEQ 


MDCSAVEREADSIA' 


iUS 



HAL/6B00 i.3F! 


8CC2 


SDOSDRIVERS tJt i 
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lOSTDRECEftQN.ftSH 






718: 


iSTA 


flcc4 mh 


719! 


3TAA 


8CC6 6C35 


720: 


INC 


8CC8 2i02 


721: 


BKE 


BCCfl 6C34 


722: 


INC 


8CCC 


723: 


mSftVEffilTESTATUSl 


eccc 39 


724: 
725: 


RTS 


SCCD 


72&: 


NDCSAVEREADSTATUS ;STA 


8CCD A73A 


727: 


STAA 


8CCF .AC39 


728: 


INC 


8CD1 2602 


729: 


6NE 


8CIi3 6C38 


730: 


INC 


8CD5 


731: 


WDCSAVEREACSTATUSl 


8CD5 39 


732: 


RTS 



tit SDOS I/O drivers for MaveHate Jupiter 11 
tit THE SD STORAGE DEROM DRIVER Hi . 



it) 1978 SOFTWARE DYNAHICS It* 



DSKINFO:HRITEERRSTS,)( \ 

DSKINFO!aRITEERRSTS,l{ 

BBKINF0:«RITEERRCNT+1,X 

WDCSAVEKRITESTATUSi 

DSKINFO:»RITEERRCNT,)( 



LAST «RITE (OR FORHAT) ERROR STATUS 



2 BYTE ERROR COUNT 



DSKINFO:READERRSTS,X ; 

CSKINFOiREADERRSTSjX 

DSKINF0;READERRCNT+1,X 

HDCSAVEREADSTATUSl 

DSKINF0:READERRCNT,1{ 



LOB LAST READ ERROR 



fiftL/6800, 1,3F! 8CD5 
Ot/14/83 il!39!33i 
lOSTQREDEHQN.ASH 



aCDi 
8CD6 819F 
8CD8 2718 

SCDfi C102 
8CDC 2706 

8CDE C616 
3CE0 8604 
8CE2 2004 

8CE4 
8CE4 C6I5 
8CE6 8604 

8CE8 
8CE8 FE9326 

8CEB E702 
8CED S70i 

8CEF 7ESB44 

8CF2 

8eF2 
8CF2 CE8C6i 
8CF5 FF9328 

8CF8 BD8A36 

8CFB C612 
8CFD 8604 

8CFF 20E7 

BDOl 
8D01 8640 

8B03 B7932A 

8006 FE9326 

8D09 EE2B 

8D0B EE05 
8D0D FF932B 

8010 C602 
8012 39 

0000 

0000 

0000 



734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755; 
756 
757 
758 
759i 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 

773: 

774 
775 
776 
777 
778 
779 
780 
781 
782 
807 
308 
833 
834 
886 
887 
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WBCeUIT 



m SDOS I/Q drivers {or KaveHate Jupiter II 
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(C) 1978 SQFTHASE D¥i4A«ICS *** 



WDCQUITREAD 



WDCGUITIiilTHERR 



aBCTIMEE'OUT 
iSCTitlEDOUTl 



HSDSET4TRANS 



iCMPA 

CKPA 

BEQ 

jCHPB 

CHPB 

BEB 

;LDD 

LDA6 

LDAA 

BRA 

iLDD 

LDAB 

LDAA 

|LDX 

LDX 

fSTD 

STAB 

STAA 

jJMP 

JMP 

EQU 

\im 

LDX 

STX 

;JSR 

JSR 

JLDD 

LDAB 

LDAA 

BRA 

iLSA 
LDAA 
|STA 

STAA 

iim 

LDX' 

I LDX 

LDX 

iLDX 

LDX 

STX 

;LDB 

LDAB 

RTS 

FIN 

IF 

FIN 

!F 

FIN 

IF 

FIN 

END 



A TIHEOUT IN MIDDLE OF TRANSFER ? 



r/.iooiuii 

#210011111 

SDCTIMEDOUTl B/ YES, LET THE USER KNO«i 

#8DCREADCHD 

IKDCREADCHD 

SDCBUITREAD 

«ERR:DISKIIRITE 

#!ERR:DISKSRITE)4tFF 

I(ERRjDISKWRITE)/256 

HDCSUITBITHERR 

IERR:DISKREAD 

#(ERR:DISKREAD)S!«FF 

#(ERRsDISKREAD)/256 

fflCDCBPOINTER JUST TO BE SAFE... 

KDCDCBPOINTER 

DC8iLASTERR0R,X 

(DCB:LASTERRQR)fl,X 

DCBiLASTERRORiX 

HDCDONE 

«DCDONE . 

i 

iMDCINTUNEXPECTED RENEHBER THAT flE DON'T EXPECT AN INTERRUPT! 

#liBCINTUNEXPECTED 

SDCCQNTINUEPC 

WDCRESET 5 HIT KIH SO HAYBE HE SILL ^AKE UP 

WDCREBET 

#ERR:BEVICETIi1EDDUT 

i!ERR!DEyiCETIMEDOUT}lc*FF 

f(ERR:DEVICETIHED0UT)/256 

«DCSUIT»ITHERR 



tMDCNBPS/8 5 SET 

#SDCNBPS/8 

teCCOUNT 

ACCOUNT 

NDCDCBPOINTER 

SDCBCBPOINTER 

DSKINFO.-SECTORDBjX 

DSKINFQiSECTORDB.X 

RDSI:SECTDRBASE,X 



lER OF 8 BYTE BLOCKS TQ TRANSFER 



DSl!SECTORBAS£,X 



TOCPOINTER 
SXOOOOOOIO 
#7.00000010 

IQDRIVERBOBY 

lODRIVERPOLL 

lODRIVERPOLL 

lODRIVERIHIT 

IQDRIVERINIT 

lOBRIVERRAM 

lODRIVERRAK 

,' UNEXPECTED EOF 



5 SET UP POINTER TO iST BLOCK OF B TO HOVE 
.: BET 'READY' LINE SENSE HASK 



HAL/6800 


1.3F! 


8D12 


SBOS&RIVERS 
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01/14/83 


li:39:33| Page 63| Fori! 1 


tn THE SD STORABE DEMON DRIVER »*« 


lOJUPITER.ASM 














414: 


FIN 










415! 


INCLUDE 




IDVTCONFIS.ftSH GENERATED m HAKEVTCQNFI6 IHMEDIATELY BEFORE ASSY 


000 i 




1: 




if 


iodriverbody 


0001 




2! 




ifund 


profile.llALVT 


0001 




3: 


profile.llALVT 


equ 


1 






4: 




fin 


profile.HALVT 


0001 




5: 




ifund 


profile. MALLPT 


OOOi 




b: 


profile.RALLPT 


equ 


■ 1 






7! 




fin 


profile.HALLPT 


0000, 




8: 




ifund 


profile.HALVT 






10: 




fin 


profile.HALVT 


OOOi 




11: 




ifund 


profile.RS232LPT 


OOOi 




12: 


prQfile.RS232LPT 


equ 


1 






13: 




fin 


profile.RS232LPT 


0001 




14: 




ifund 


profile.EPSDNLPT 


OOOi 




15: 


profile.EPSONLPT 


equ 


1 






Ui 




fin 


profile. EPSONLPT 


0001 




17: 




ifund 


prDfile.ADH3 


0001 




18: 


profile. AD113 


equ 


1 






19: 




fin 


profile.ADtfS 


0001 




20: 




ifund 


profile.BTlOO 


OOOi 




21: 


profile.BTlOO 


equ 


1 






22: 




fin 


profile.BTlOO 


0001 




23: 




ifund 


profile.H19 


0001 




24: 


profile. H19 


equ 


1 






25: 




fin 


profile.H19 


0001 




26: 




ifund 


profile.BQR0CIQ120 


0001 




27: 


pro-file. S0RDCIS120 equ 


1 






28: 




fin 


profile.S0RDCI8120 



HAL/i800 i.3F: 
,01/14/83 U;39 
lOVTCONFIG.ASH 

0000 

0001 

8D13 
8D13 B7FFC1 
3D1& 8&BS 
BDia B7FFC0 

8B1B 
8DiB 39 

8D1C 
8DIC F6FFC0 
8DiF B6FFC1 
8D22 7E8Eft2 

8525 
8D25 B6FFC0 
8D28 46 
8D29 46 
8B2ft 46 
8S2B 39 

0000 

0001 

8D2C 
8D2C B7FFC5 
8D2F 8685 
8D31 B7FFC4 

8B34 
8D34 39 

8B35 
8D35 F6FFC4 
,8D38 B6FFC5 
8D3B 7E8Efl2 

8B3E 
3B3E 36FFC4 
8D4i 46 
8B42 46 
8D43 46 
8D44 39 

0000 

0001 
8D45 . 
8B45 B7FFC9 

8D48 86B5 
8D4A B7FFC8 

8D4D 
8B4B 39 

8D4E 
8S4E F6FFC8 
BBSl B6FFC9 
8D54 7E8EA2 

8057 



8B12 SBOSDRIVERS 
i33| Page 64j ForiR 1 

30: 

3l! 

39! 
40: 

41: ilputdevslFFCO 
42: 
43: 
44i 

45: rt5!*FFC0 
46: 

47: ilgetdev!*FFC0 
48: 
49: 
50: 

51: tkhec!(ready:IFFCO 
52: 
53: 
54: 
55: 
56: 
57: 
53: 
66: 
67: 

68: ilputdev!*FFC4 
69: 
70: 
71: 

72: rt5:iFFC4 
73: 

74: ilgetde¥i$FFC4 
75: 
76: 
77: 

78: tlcheckready!tFFC4 
,79: 
80: 
81: 
, 82: 
83: 
84: 
85: 
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94: 
95: 
96: 
97: 

98: 
99: 
100: 
101: 
102: 
103: 
104: 
105: 



iiputdev!lFFC8 



rls!SFFC8 



ilgetdev:$FFC8 



fin 
if 
fin 
if 

staa 
Idaa 
staa 

rts 

Idab 
Idaa 

.imp 

Idaa 

rora 

rora 

rora 

rts 

fin 

if 

fin 

if 

staa 

Idaa 
staa 

rts 

Idab 
Idaa 
jip 

Idaa 

rora 

rora 

rora 

rts 

fin 

if 

fin 

if 

staa 
idaa 

staa 

rts 

Idab 
Idaa 



iodriverbodv 
iodriverinit 
iodriverinit 
iodriverbody 

*FFC1 

#7.10110101 

tFFCO 



output data 

enable output interrupts 



JFFCO get the status first- (becui reading data clears it) 
$FFC1 get the interrupl-causing data 
ilgetdevstatusfroaiacia the rest is coiSffion code 



IFFCO 



get the status 

shift tBCD into carry bit 



iodriverbody 
iodriverinit 
iodriverinit 
iodriverhady 

JFFC5 

SXlOllOlOi 

$FFC4 



output data 

enable output interrupts 



*FFC4 get the status first (becuz reading data clears it) 
$FFC5 get the interrupt-causing data 
ilgetdevstatusfroisacia the rest is cosion code 



$FFC4 



get the status 

shift tBCD into carry bit 



iodriverbody 
iodriverinit 
iodriverinit 
iodriverbody, 

IFFC9 

#7.10110101 

$FFC8 



output data 

enable output interrupts 



tlcheckready!$FFC8 



fFFCS get the status first (becuz reading data clears it) 
IFFC9 get the interrupt-causing data 
iigetdevslatusfroaacia the rest is comon code 



mil mo 1.3F! 


81)57 


01/14/83 ll!39:33j P 


lOVTCONFIS.ASH 




8D57 BiFFCa 


106i 


8D5A 46 


107: 


805B 46 


108: 


8D5C 46 


109! 


8»5B 39 


llOs 




111: 


0000 


112: 




193: 


0000 


194: 




521: 




522: 




523: 




4ii! 


0000 


1: 




3: 


0001 


4: 


0001 


5: 


0000 


6: 




7: 



SDOSDRIVERS 
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nsKtdpb 



INCLUDE 
if 
fin 
if 

ifund 
set 
fin 



m SCOS I/O drivers for WavePlate Jupiter II (C) 1978 SOFTWARE DYNAMICS Ut 
VT Device-Specific Code 



Idas 

rora 

rora 

rora 

rts 

fin 

if 

fin 

if 

fin 



$FFC8 



get the status 

shift tDCD into carry bit 



iodriverbody 

iodriverpoll 

iodriverpoll 

iodriverrasi 

iodriverraffi 



IQVTDPBS.ASH 



iodriverpoll 

iodriverpoll 

iodriverbody 

ne^dpb 



neKtdob 



HAL/6B00 1.3F! 


8D5D 


SDOSORIVERS 


m SDQS I/O drivers for 
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aalvt profile (included 


in all standard I/Q packages) 


IQVTDPBS.ASH 












0001 


9; 
10: 
il! 


profilenuffl.fflalvt 


equ 1 




8D5E 


thisdpb 


set 


* 




8D5E 01 


12: 




kb 


profilenua.italvt 


profile na«e 


8D5F 04 


13: 




fcb 


dvtyp.console 




8D60 0000 


14: 




m 


nextdpb 


next profile 


8D62 50 


15: 




hb 


80 


default width 


81)63 18 


16: 




kb 


24 


default depth 


8D64 OS 


17: 




fcb 


5 


flags 


8D65 0171 


18: 




fdb 


6*tickspersecond+ntii!eoutblock5 


8D67 0C39 


19: 




okrts 




-input translation routine 


0001 


20: 


, 


if 


1)6800! 11)6801 




8D69 01 


2i! 

22: 




nop 
fin 






8S6A 7EB&D0 


23; 




j«p 


sdos+5do5:vtBialvt 


perfors control functions 


8D6D 39 


24: 




rts 




set output coloring 


8D&E 01 


25: 




nop 






8D6F 01 


26: 




nop 






8D70 39 


27: 




rts 




set background coloring 




28: 


t 


nop. 








29: 


i 


nop 








30: 


t 


fcb 


0,0,0,0,0,0,0,0 


gpinit data 


8D5E 


31: 


nextdpb 


set 


thisdpb 





HAL/iBOO i.3F! i 


3070 


SDOSDRIVERS 


%%i SDOS I/Q driver; 


01/14/83 11:39!33; Page 


67| Fom 1 


aallpt prolile line! 


IDVTDPBS.ASfl 












0009 


33! 


profilenufs.mallpt 


equ 9 




34! 










8B71 


35! 


thi 


sdpb 


set 


* 


8071 09 


36: 






kb 


proHlenus.iiallpt 


8S72 05 


37! 






kb 


dvtyp. printer 


8D73 8D5E 


38: 






4db 


nextdpb 


8D75 84 


39! 






Icb 


132 . 


8D76 42 


40! 






kb 


£6 


81)77 03 


41 ! 






fcb 


3 


8B78 Wr?l^akt 


42: 






kb 


ittickspersecond-t-nt 


8D7ft 0C39 


43: 






okrts 




0001 


44: 






it 


ffl6800!gi6S01 


8D7C 01 


45: 
46: 






nop 
tin 




8D7D 7EBDCD 


47: 






j«p 


sdos+sdosivtiallpt 


8D80 39 


48s 






rts 


set output coloring 


8081 01 


49! 






nop 




8D82 01 


50: 






nop 




8D83 39 


51: 






rts 






52: 


t 




nop 






53: 


t 




nop 






54: 


% 




kb 


0,0,0,0,0,0,0,0 


8071 


55! 


nextdpb 


set 


Ihisdpb 



m SDOS I/Q drivers for »ave«ate Jupiter II (C) 1978 SOFTSfiRE 0YNAHIC3 %%i 



profile nase 

next profile 
default Hidth 
default depth 
flags 
s' 
inpdt translation routine 



perfora control functions 

set background coloring 
gpinit data 



HAL/6800 i.3F: 


SD83 SDQSDRIVERS 


m SDOS I/O drivers f 


01/14/83 }1j39!33; Page 68: Forn I 


' hardcopyvt profile ant 


IQVTDPBS.ASH 








0006 


57s profilenuis.hardcopyvt equ 6 




58: 






8064 


59: thisdpb 


set 


t 


81)84 06 


60: 


kh 


profilenuffl. hardcopyvt 


81)85 04 


61: 


fcb 


dvtyp. console 


8D86 8D7i 


62: 


fdb 


nextdpb . 


81)88 50 


63: 


fcb 


80 


8D89 00 


64: 


kb 





SD8A 14 


65: 


fcb 


20 


8D8B 0171 


66: 


fdb 


6ltick5per5ecand+ntiii 


8D8B 0C39 


67: 


okrts 




0001 


68: 


if 


116800 !ffi680i 


8D8F 01 


69: 


nop 






70: 


fin 




8D90 0D39 


71: 


errorrts 


0001 


72: 


if 


i6800l«6801 


8D92 01 


73: 


nop 






74: 


fin 




8D93 39 


75: 


rts 




81)94 01 


76: 


nop 




8D95 01 


77: 


nop 




8D96 39 


78: 


rts 






79: » 


nop 






80: * 


nop 






81: » 


fcb 


0,0,0,0,0,0,0,0 


81)84 


82: nextdpb 


set 


thisdpb 


0001 


83: 


ifund 


profile. cenlpt 


0002 


84: 


else 






112: 


fifi 


profile. cenlpt 


0000 


113: 


ifund 


profiiB.r5232ipt 




114: 


elss 





m SDOS I/O drivers for WaveRate Jupiter II (C) 1978 SOFTHftRE DYNAHICS tU 



profile nane 

nest profile 
default width 
default depth 
flags 
s 
perforn input translation 



perforffl default control functions 



set output coloring 



set background coloring 



gpinit data, 



fiAL/6B00 1.3F8 
01/14/83 ll!39 
lOVTEPBS.ASH 



- OOOB 

SD97 
8D9? OB 
8B98 05 
8D99 8D84 
8D9S 84 
8D9C 42 
8D9D 02 
8D9E 0171 
8DA0 0C39 

0001 
8DA2 01 

BMZ 0D39 

0001 
8Dft5 01 

Bm 39 
8DA7 01 
8&A8 01 
8SA9 39 



8D97 



8D96 SMSDRiVERS 
!33; Page 69i Form 1 



m SDOS I/Q drivers for liaveHate Jupiter li (C) 1978 SOFTsARE DYNAMICS tit 
r52321pt profile and support code 



0001 
0002 

0000 



116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 

130; 

131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
HI 
142 
143 
144 
145 
146 
219 
220 
221 



I Operates a printer using standard ascii control codes for everything 
prafilenuiii.r52321pt equ 11 



tbisdpb set 
fcb 



t 

profilenuoi.rs2321pt 

dvtyp. printer 

nextdpb 

132 

66 

2 



6iticksper5econd+ntiffleoutbiock5 



96800! 196801 



t 

t 

nextdpb set 
Hn 
ifund 
else 
fin 
ifund 
else 



kb 

fdb 

fcb 

fcb 

kb 

fdb 

okrts 

if 

nop 

fin 

errorrts 

if (16800 !b!6801 

nop 

fin 

rts 

nop 

nop 

rts 

nop 

nop 

fcb 



profile naae 

next profile 
default width 
default depth 
flags ■ 



0,0,0,0,0,0,0,0 
thisdpb 

profile. r52321pt 
profile. adil 

profile.adffll 
orofile,adiB3 



input translation routine 

perform default control functions 

set output coloring 
set background coloring 
gpinit data 



MAL/6800 i.3F! 


8DA? 


SBOSSRIVERS 


m SDOS I/O drivers 


for 


Bavetlate Jupiter- II iC) 1978 SQF 


01/14/83 il!39:33i Page 70; Fora 1 


adai3 profile and support 


code 


IDVTBPBS.ASH 














0003 


223: 


pro-filenusi.adfflS 


equ 3 








224: 












SDAA 


225! 


thisdpb 


set 


t 






8DAA 03 


226: 




fcb 


profiIenuiB.ad(ii3 




profile naifi 


8DAB 04 


227! 




kb 


dvtyp. console 






aOAC BD97 


228! 




fdb 


nextdob 




next profile - 


8DAE 50 


229! 




fcb 


80 




default width 


BDAF IB 


230! 




kb 


24 




default depth 


8DB0 04 


231! 




fcb 


4 




flags 


8DBi 0171 


232! 




fdb 


ittickspersecond+nti 


meoutb locks 


8DB3 7E8DC0 


233! 




jup 


xlatei!adsi3 




perfom input translation 


8DB6 7E8DCF 


234! 




jnp 


speciaioutput:adii3 




perforn control functions 


8DB9 39 


235! 




rts 






set output coloring 


3DBA 01 


236! 




nop 








8DBB 01 


237! 




nop 








8DBC 39 


238! 




rts 






set background coloring 


8DBD oi 


239! 




nop 








8DBE 01 


240! 




nop 








8DBF 00 


241: 




fcb 







initial XLATEI state byte 


8BAA 


242: 


neiitdpb 


set 


thisdpb 







1978 SQFTKARE 8VNAHICS Hi 



HAL/i900 1.3F! SDBF SDOSDRIVERS tit SDOS I/O drivers lor Waveflate Jupiter II (C) 1978 SOFTWARE DYHAHICS ttt 

01/14/83 ll!39:33; Page 71; Forffi 1 ada3 profile and support code 

lOVTSPBS.ASH 

0001 244: ifund dcbixlatestate 

003D 245! dcbsxlatestate equ dcb!profile+dpb:gpinit translate state byte is 1st gp byte 
24i! fin 

8DC0 247! Klatei5adiB3 

248: I translate adfi3 input found in (a), returning translated character in (a) 

249: ; with carry clear; carry set will cause character to be last 
8DC0 C67F 250: Idab l*7f assume swap for underscore key 

8DC2 815F 251 ! capa »t5f swap for underscore? 

8DC4 2706 252: beq xlateisadfliS.b b/ yes, use (8) as translation 

eDC6 C65F 253: Idab »*5f assume swap for DEL' key 

BDC8 S17F 254: c«pa «7f swap for BEL key ? 

SDCA 2i01 255: bne xlateiiadnS.done b/ no 

BSCC 256: xlatei:adii3.b ; use (Bl as translation 
8DCC 17 257: tba 

8I)C& 258: xlatei:adii)3.done 
8DCD 0D39 259: okrts 



11AL/6800 1.3F: 


SBCB 


01/14/83 lh39 


33j P 


I0VT2PBS.ASH 




8DCF 


261: 




262: 




263: 




264: 


80CF BiBi 


265: 


8DD1 2706 


266: 


8DD3 8182 ' 


267: 


8805 271E 


268: 


8DD7 0D39 


269: 




270: 


8DD9 


271; 


8DC9 861B 


272: 


8DDB AD7D 


273: 


BDBD 8638 


274: 


8DCF AD7D 


275: 


8DEi 30 


276: 


8DE2 A602 


277: 


8DE4 0820 


278: 


8DE6 DE06 


279; 


8DE8 A87D 


280: 


8BEA 30 


281; 


88EB A603 


282: 


8DEB 8B20 


283: 


8BEF DE06 


284: 


8BF1 AD7D 


285: 


8BF3 0C39 


286: 




287: 


8&F5 


288: 


8DF5 861 A 


289: 


8DF7 AD7D 


290: 


8BF9 0C39 


29h 




292: 


0001 


293: 


0002 


294: 




360: 


0001 


361; 


0002 


362: 




431: 


0000 


432: 




433: 



SDOSBRiyERS ttt SBOS I/Q drivers for MaveMate Jupiter II (C) 1978 SOFTtiARE DYNAHICS iit 
Page 72; Fora I adsS profile and support code 

speci3loutput:ad8i3 

; called to perfors control functions for a Lear Siegler ADH 3-A 
; The position, and clear functions are iipleaented. All others 
5 must be siaulated by the VT driver. 

cipa #specialfn;posn 

beq specialoutput:adii3po5n 

CBipa l5pecialfn;clear 

beq specialoutput:adia3clear 

errorrts adB3a can't do anything else 

spec i al output : adiii3posn 



set up to do a position fn 



Idaa 


tascii;esc 


jsr 


dcb:tlbuffer,x 


Idaa 


r= 


jsr 


dcb:tlbuffer,j( 


tsx 




Idaa 


2,s 


adda 


t$20 


m 


dcbpointer 


jsr 


dcb:tibuffer,x 


tsx 




idaa 


3,x 


adda 


#*20 


IdK 


dcbpointer 


jsr 


dcb:tlbuffer,x 


okrts 




put:adit3cle3r 


Idaa 


Ilia 


jsr 


dcb;tlbuffer,x 


okrts 




fin 


profile.adij 


ifund 


pro-file.tvi912c 


else 




fin 


profile. tvi912c 


ifund 


profile, soroc 120 


else 




fin 


profile. sorQcl20 


ifund 


profile.hl9 


else 





perforiDS a clear screen fn 



HAL/iBOO 1.3F! 

01/14/83 lls39 

lOVTDPBS.ASH 

0005 

8DFB 
8DFB 05 
8DFC 04 
8DFD BDftA 
8DFF 50 
3E00 18 
8E0i 04 
8E02 0171 
8E04 7E8E11 
8E07 7E8E50 
8E0fi 7E8E8E 
SEOC 39 
8E0E 01 
8E0F 01 
8Ei0 00 

8DFB 



8DF9 SDOSDRIVERS 
!33; Page 73; Fora I 



m SDQS I/O drivers for SaveMate Jupiter II (C) 1978 SOFTWARE DYNAHICS Ut 
hl9 profile and support code 



435: proHlenuai,hl9 

4365 

437: thisdpb 

438: 



439: 

440: 

441: . 

442: 

443: 

444; 

445: 

44i: 

447: 

448: 

449: 

450: 

451; 

452: nextdpb 



set 
fcb 
fcb 
fdb 
fcb 
fcb 
fcb 
fdb 
jap 

JiBp 
jfflp 

rts 

nop 
nop 
fcb 
set 



equ 5 



* 



profilenuii!.hl9 
dvtyp. console 
nextdpb , 



profile naae 



next profile 
80 default width 

24 default depth 

4 flags 

iltickspersecond+ntiaeoutblocks 
xlatei:hl9 perforis input translation 

spBcialoutput:hl9 perform control functions 
coloring:hl9 set output coloring 

set background coloring (none) 




thisdpb 



initial XLATEI state byte 



«AL/6800 i.3F! 
01/14/83 11:39 

lOVTDPBS.AStl 
0000 

BEil 



8EU 6D3D 
8Ei3 260B 
SEiS SilB 
8E17 2605 
■8E19 6C3D 
8E1B 0D39 

8E1D 
8E1D 17 

8E1E 
8E1E 0C39 



8E10 SDOSDRIVERS 
!33| Page 74j Form 1 



8E20 



8E20 6F3B 
8E22 C60B 
8E24 8141 
8E26 27F5 
SE28 C60A 
8E2A 8142 
8E2C 27EF 
8E2E C60C 
8E30 8143 
8E32 27E9 
8E34 C608 
8E3i 8144 
8E38 27E3 
8E3A CW5 
8E3C 814A 
8E3E 27DD 
8E40 C6i5 
8E42 8i4E 
8E44 27D7 
8E46^ C61B 
8E48 8151 
8E4A 27D1 

8E4C 
8E4C AC5E 
8E4E 0D39 



454: 

4S&: 

457: 

458: 

459: 

460: 

461: 

462: 

463: 

464: 

465: 

466: 

467: 

468: 

469: 

470; 

471: 

472: 

473: 

474: 

475: 

476: 

477: 

478: 

479: 

480: 

481 ! 

482: 

483: 

484: 

485: 

486: 

487: 

488: 

489: 

490: 

491: 

492: 

493; 

494: 

495; 

496: 

497: 

498: 

499: 



ifund 
fin 



m SDQS I/D drivers iar WaveHate Jupiter II (C) 1978 SOFT«ARE DYNAMICS itt 
hl9 profile and support code 

dcb:xiate5tate 



xlatei:hl9 

I translate hl9 input found in (a), returning translated character in (a) 

J with carry dearj carry set «ili cause character to be lost 



tst 

bne 

cnpa 

bne 

inc 

errorrts 



dcb:xlatestate5X 
xlatei:hl9. escape 
Iascii:e5c . 
datei;hl9.ok 
dcb:!ilatestate,x 



xlatei;hl9.b i use (B) as translation of character 

tba 
Klatei:hl9.ok j (A) is traniated character 

okrts 

!ciatei:hl9. escape 

; if character following <ESC> is not A, B, C, S, i, N, or 8, 

; then bitch and revert to the standard state 



dr 

Idab 

ctpa 

beq 

Idab 

capa 

beq 

Idab 



bsq 
Idab 
cipa 
beq 
Idab 
cspa 
beq 
Idab 
cffipa 
beq 
Idab 
cnpa 
bsq 
xlatei:hl932 
inc 
errorrts 



dcb:xlate5tate,x 

tascii:vt 

I'A 

xlatei:hl9.b 

lascii;lf 

t'B 

xlatei:hi9.b 

«ascii:ff 

rc 

xlatei:hl9.b 
<ascii:b3 

rc 

xlatei:hl9.b 

tascii:enq 

n . 

xlatei;hi9.b 

#ascii;nak 

t'N 

xiatei:hi9.b 

lascii:esc 

ro 

xlatei:hl9.b 
dcbibeepcQunt.x 



cursor up? 



cursor doan? 



cursor right? 



cursor left? 



"^E? 



^U? 



<ESC>? 



ignore character 



!lAL/i800 i.3F! 
01/14/83 ll539i 
lOVTDPBS.ASH 
8E50 



8E50 8181 
8E52 270A 
BE54 8182 
8E5i 2722 
8E58 8183 
8E5A 2728 
8E5C 0D39 

8E5E 
BE5E 86IB 
8EiO ftD7D 
8E62 8i59 
8EM AD7D 
8E6i 30 
8E&7 A602 
aE69 8B20 
8E6B DE06 
, 8E6D AD7D 
8E6F 30 
8E70 A603 
8E72 8B20 
BE74 DE06 

8E76 mn 

8E78 0C39 

3E7A 
8E7ft 86iB 
8E7C fiD7D 
8E7E 8645 
8E80 AD7!) 
eE82 0C39 

8ES4 
8E84 86 IB 
8E86 AD7D 
8E83 864B 
8E8A AD7D 
8E8C 0C39 



8E4E SDOSDRIVERS 
Page 75; For» 1 



33; 



m SDOS I/O drivers for KaveHate Jupiter II (C) 1978 SOFTWARE DVNAMICS Ht 
hl9 profile and support code 



501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520; 

521 

522; 

523 
524; 
525 

526; 

527 
528 

529 
530 
531 
532 



535 
536 
537 
538; 
539 
540; 
541 



specialoutput:hl9 

; called to perfora control Inunctions for 

; The position, clear and erase to end of 



a Heath H-19 

line functions are isplesiented. 



cfflpa 

faeq 

cnpa 

beq 

ciepa 

beq 

errorrts 



♦specialfnipQsn 

5pecialoutput;hl9posn 

tspecialfnsclear 

specialoutputihl9clear 

lspecialfn:eeol 

specialoutput:hl9Beol 



specialoutput:hl9po5n 



Idaa 

jsr 

Idaa 

jsr 

tsx 

Idaa 

adda 

Idx 

jsr 

tsx 

Idaa 

adda 

Idx 

jsr 

okrts 



tasciiiesc 
dcbitlbuffer,x 
»'Y 
dcb:tlbuffer,x 

2,s 

tt20 

dcbpointer 

dcbstlbuffer,)! 

3,x 

«20 

dcbpointer 

dcb:tlbuffer,x 



special output !hl9clear 



Idaa 

jsr 

Idaa 

jsr 

okrts 



tasciiiesc 
dcbitlbufferjK 
I'E 
dcbitlbuffer,x 



5pecialoutput:hi9eeol 



Idaa 
jsr 
Idaa 
jsr 

okrts 



tasciiiesc 
dcbitlbufferjX 
t'K 
dcbitlbufferjX 



hl9 can't do anything else 



set up to do a position fn 



perforas a clear screen fn 



perforas a eeol fn 



HAL/6800 1.3F! 


8EBC 


01/14/83 ll!39!33; 


IQVTBPBS.ASM 




3E8E 


543 


8E8E 8508 


544 


8E90 2i08 


545 


eE92 8&1B 


546 


8E94 ftD7D 


547 


8E9& 8671 


548 


8E9B 6E7D 


549 




550 


3E9A 


551 


8E9ft 8616 


552 


8E9C ftD7D 


553 


8E9E 8670 


554 


SEAO 6E7D 


555 




556 


0001 


557 


O0O2 


558 




561 


0001 


562 


0002 


563 




566 


oOoi 


567 


0002 


563 




743 



SDQSDRIVERS 
!33; Page 76; Fora 1 



colorlngi 



m SDOS I/O drivers for WaveHate Jupiter li (C) 1978 SOFTiiftRE DYNAHICS tti 
hl9 profile and support cade 



reverse video desired ? 

b/ yes 

send "norisal video" coamand 



coloring; 



hl9 




bita 


txooooiooo 


bne 


coloring:hl9reversevideo 


Idaa 


tasciisesc 


jsr 


dcbjtlbuffer,)! 


Idaa 


i'q 


j«p 


dcb5tlbuffer,x 


hl9rever5evideo 


Idaa 


#a5cii:esc 


jsr 


dcb;tlbuffer,x 


Idaa 


»'P 


jap 


dcb:tlbuffer,x 


fin 


.,profiie.hl9 


ifund 


profile.hazeltine 


else 




fin 


profile. hazeltine 


ifund 


profile. beehive 


else 




fin 


profile. beehive 


ifund 


profile. exorterslSS 


else 




fin 


exorteriiilSS 



send "reverse video" request 



HftL/6800 1.3F! 
01/14/83 11:39; 
lOVTSPBS.ASH 
8EA2 



8EA0 SCOSDRIVERS 
33," Pag? 77; Fora 1 



tit SD08 I/O drivers lor Kavellate Jupiter II iC) 1978 SOFTWARE DYNAHICS itt 
hl9 profile and support code 



BEA2 C570 
8EA4 2602 
8EA6 0C39 

a£A8 
SEAS 17 
eEA9 44 
8EAA 44 
8EAB 44 
8EAC 44 
8EAD 8407 
8EAF 0D39 



745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 

757: 

758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769i 
770 
771 
772 



ilgetdevstatusfromacia 



receives control from the acia device access routine, returns either 
the available character, tuith carry clear, or the error status, with 
carry set. 

the data or error status is returned in (a) 

the status is defined as: 



XOOOOOOOl 
XOOOOOOIO 
XOOOOOIOO 



bitb 1X01 110000 

bne ilgetdevicestatusfroffiaciaerror 

okrts 



Iraising error (probably BREAK received) 
overrun (data lost) 
parity error 

check for parity, overrun, or framing errors 



i Igetdevi cestatusf rofflaciaerror 
tba 
Isra 
Isra 
Isra 
Isra 

anda iXOOOOOlU 
errorrts 

fin iodriverbody 
end 



fflake a standard status byte 



mil mo i.3F! 

01/14/83 11:39: 

lOJUPITER.ASM 
0001 
0046 



BEBi 9377 
8EB3 9627 
■8EB5 9D8D 
8EB7 08 
8EB8 9I)E3 
8EBA 081!) 
8EBC-BDB3 
8EBE 8407 
8EC0 8400 
8EC2 9D9D 

8EC4 

0001 
8EC4 01 

8EC5 OF 
8EC6. 39 

8EC7 
8EC7 OE 
8EC8 39 

0001 
8EC9 01 

BECft 3B 
8ECB 01 

8ECC Oi 
BECB 5DE2 
8ECF 8Ffi2 
8ED1 9724 
8ED3 96C8 
8ED5 SCFB 
eED7 8410 

. 0000 

8ED9 0000 

0000 



8EDB BDBE2D 
8EBE 040A 

3EE0 BDBE30 
8EE3 7EBE33 

0032 
8EE6 3F 



8EAF SDOSDRIVERS 
33i Page 78; Forio 1 



tit SDOS I/O drivers for WavsMe Jupiter II 
C0NFI6 TABLE 
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418: 
419: 
420! 
421: 
422: 
423: 
424: 
,425: 
426: 
427: 
428: 
429: 
430: 
431: 
432: 
433: 
434: 
455: 
436: 
437: 
438: 
439: 
440: 
441: 
442: 
443: 
444: 
445: 
446: 
447 i 
448: 
449: 
450: 
451: 
452: 
453: 
454: 
455: 
457: 
458: 
459: 
'460: 
541: 
542: 
543: 
544: 
545: 
546: 
547: 
548: 
549: 
550: 



IFUND INTERRUPTSTftCKSIIE 
INTERRUPTBTACKSIZE 
t 

FIN INTERRUPTSTACKSIZE 
t 

CNF6TABLE FOB 

FDB TTYDCB 

FOB I0C8P0INTERS 

FCB NIGCHANMELS 

FM OSKBUFFERPOOL 

m DSKPOOLS.IZE 

FDB SDOS+SDQS:VTATTNCHECK 

FDB DEBUBSYSCALLHANBLER 

FDB DRIVERBftSE 

FDB INTSETUP 
INTDISABLE 

IF H68001K6801 

NOP 

FI« 

SEI 

RTS 



EQU HINSTACK+7+7+7+7+7+7+7 7 FOR EACH POSSIBLE 
NESTED INTERRUPT RESULTING FROH A DEVICE 



DISKDCSS DEFAULT DISK HUST BE FIRST 
CONSOLE HUST BE FIRST 



INT DISABLE 



INTENABLE 



CLI 
RTS 
IF H6800IH6801 



NOP 

FIN 

INTRTI RTI 

NOP 
NOP 



INT RTI 



FDB INTERRUPTSTACKEND-1 

FDB STACKSBITCHEDDEVIEEPOLL 

FDB TASK5UEUE 

FDB TlNEOUTQUEyE 

FDB NEXTDPB 

FDB DEBU6INTERRUPT 



ROUTINE TO DETERHINE INTERRUPTIN6 DEVICE 



HITH CONTEXT BLOCK ON STACK 



IF 


SDQSNT 


ELSE 




FDB 





FIN 




IF 


SDOSHT 


FIN 


SDOSHT 



NO SDOS/HT PRIHITIVES 



ILLDEVICEOP JSR 

FDB ERR: ILLDEVICEOP 
i 

ERRETX JSR SDOS+SDOS: ERRORS AVE 

JHP SDOS+SDOS :ERRORED 

PATCHSPACE RPT 

mi 



SDOS+SDOS: ERROR 



50 



«AL/i800 


1.3F: 


8F17 


SDOSDRIVERS 




at SDOS I/O drivers tor BaveHate ■ 


01/14/83 ll!39!33i 


'age 79; Porn 1 




m INTERRUPT POLL CHAINS tU 


lOJUPITER.ASH 












0000 




552 


IODRIVERBODY 


SET 







0001 




553 
554. 


lODRIVERPOLL 


SET 




1 


8F18 




555 


STftCKUaSBITCHEDDEVICEPOLL ; 


coffle here via IRQ vector 






556 


INCLUDE 




. lOVTCONFIG.ASH 


0000 




1 

30 






H 1 
lin 


odriverbody 
iodriverbody 


0000 




31 
39 






Hn 


odriverinit 
iodriverinit 


0000 




40 
57 






if 


odriverbody 
iodriverbody 


0000 




58 
.66 






fin 


odriverinit 
odriverinit 


0000 




67 
84 






if 
fin 


iodriverbody 
odriverbody 


0000 




85 
93 






if 
fin 


iodriverinit 
odriverinit 


0000 




94 
HI 






if 
fin 


iodriverbody 
odriverbody 


0001 




112 






if 


lodriverpoU 



MftL/6300 1.3F! 


8F17 SBOSDRIVERS 


tit SDOS I/Q drivers for MaveHate Jupiter II (C) 1978 SOF 


Ot/14/83 11:39:335 Page 80j Fors I 


VT Interrupt Poll Chain 


lOyiCONFIS.ASH 








8Fi8 


114: vtiinterruptpolkhajn 


; should be first in poll chain 


8F18 B6FFC0 


115: 


Idaa 


$FFCO test irq 


8F1B 2A28 


116: 


bpl 


noint:*FFCO b/ no int here 


SFID CE9427 


117: 


Idx 


#dcb:$FFCO ' look sore closely 


8F20 8182 


118: 


cspa 


#210000010 handle output interrupts pronto! 


3F22 2608 


119: 


bne 


notoutput:$FFCO 


8F24 


120: gotcutputsJFFCO 






8F24 8695 


121: 


Idaa 


tXlOOlOlOl disable output interrupt 


8F26 B7FFC0 


122: 


staa 


tFFCO 


8F29 7EBDDF 


123: 


jfflp 


5d05+sdos:vtQutputint - 


8F2C 


124: nQtoutput:tFFCO 






8F2C 8504 


125: 


bita 


#7.00000100 data carrier detect dropped 


8F2E 2708 


126: 


beq 


nQtdcddrQp:»FFCO 


8F30 F6FFC1 


127: 


Idab 


SFFCl clear interrupt caused by "^dcd 


8F33 8502 


128: 


bita 


#7.00000010 output requested with "dcd? 


8F35 26ED 


129: 


bne 


gotoutput:$FFC0 b/ yup! 


'8F37 


130: rti:tFFCO 






8F37 3B 


131: 


rti 




8F38 


132: notdc!]drop:*FFCO 






8F38 8571 


133: 


bita 


I'iOlUOOOl receiver register full or error 


8F3A 2703 


134: 


bsq 


notinput:$FFCO 


8F3C nmm 


135: 


m 


5do5+sdQ5;vtinputint 


8F3F 


136i notinput:$FFCO 






8F3F 8508 


137: 


bita 


#7.00001000 not CTS 


8F41 26F4 


138: 


bne 


rti;*FFCO ignore CTS interrupt glitch 


8F43 20FE 


139: 


bra 


% wierd condition 


8F45 


140: nQint:$FFCO 






8F45 BiFFC4 


141: 


Idaa 


$FFC4 test irq 


8F48 2A28 


142: 


bpl 


noint:$FFC4 b/ no int here 


8F4fi CE97i3 


143: 


IdK 


#dcb:*FFC4 look fflore closely 


8F4D 8182 


144: 


cspa 


#^10000010 handle output interrupts pronto! 


8F4F 2608 


145: 


bne 


notoutput:$FFC4 


8F51 


146: gotDutput;$FFC4 






8F5i 8695 


147: ' 


Idaa 


#210010101 disable output interrupt 


8F53 B7FFC4 


148: 


staa 


*FFC4 


8F56 7EBBBF 


149; 


jfflp 


5dos+sdos:vtoutputint 


8F59 


150: nQtDutput:tFFC4 






8F59 8504 


151: 


bita 


#200000100 data carrier detect dropped 


8F5B 2708 


152: 


beq 


nQtdcddrop:IFFC4 


8F5B F6FFC5 


153: 


Idab 


$FFC5 clear interrupt caused by '^dcd 


8F60 8502 


154: 


bita 


#200000010 output requested with '"dcd? 


8F62 26E!) 


155: 


bne 


gotoutput:$FFE4 b/ yup! 


8F64 


156: rti!tFFC4 






8F64 3B 


157: 


rti 




8F65 


158: nQtdcddrop:IFFC4 






8F65 8571 


159: 


bita 


#201110001 , receiver register full or error 


8F67 2703 


160; 


beq 


notinput:tFFC4 


8F69 7EBBDC 


161: 


jisp 


sdos+sdosivtinputint 


8F6C 


162: notinput:$FFC4 






8F6C 8508 


163: 


bita 


1200001000 not CTS 


8F6E 26F4 


164: 


bne 


rti:*FFC4 ' ignore CTS interrupt glitch 


8F7e 20FE 


165: 


bra 


t wierd condition 


8F72 


166: noint:$FFC4 






8F72 B6FFC8 


167: 


Idaa 


IFFC8 test irq 


8F75 2A28 


168: 


bpi 


noint:tFFCS b/ no int here 



1978 SOFTWARE DYNAMICS tit 



11AL/6800 1.3F: 


8F77 


S80SDRIVERS 


m SDOS I/Q drivers for BaveHate Jupiter II iC) 1978 Si 


01/14/83 Il:39!33i ! 


'age 81; For/n 1 


VT Interrupt Poll' Chain 


lOVTCONFIG.ASM 










8F77 CE98A2 


169! 




IdK 


#dcb:*FFC8 look fare closely 


8F7A 8182 


170 




ciipa 


tZlOOOOOlO handle output interrupts pronto 


8F7C 2608 


171: 




bne 


not output :$FFC8 


8F7E 


172 


gotoutputilFFCa 






8F7E 8695 


173: 




Idaa 


SXIOOIOIOI disable output interrupt' 


8F80 B7FFCB 


174 




staa 


$FFC8 . 


8F83 7EBDDF 


1751 




jap 


sdos+sdosivtoutputint 


8F86 


176 


notoutput5*FFC8 






8F84 8504 


177: 




bita 


tXOOOOOlOO data carrier detect dropped 


8F88 2708 


178 




beq 


notdcddrap5*FFC8 


8F8A F6FFC9 


179: 




Idab 


$FFC9 clear interrupt caused by "^dcd 


8F8D 8502 


180 




bita 


tXOOOOOOiO output requested nith "dcd? 


8F8F 26ED ■ 


181: 




bne 


gotoutputslFFCS b/ yupi 


8F91 


182 


rti:*FFC8 






8F91 3B 


183: 




rti 




8F92 


184 


notticddrop!$FFC8 






8F92 8571 


185: 




bita 


#7.01110001 receiver register full or error 


8F94 2703 


186 




beq 


notinput!$FFCB 


8F96 7EBDDC 


137: 




jisp 


sdos+sdosjvtinputint 


8F99 


108 


notinput;$FFC8 






8F99 8508 


189- 




bita 


iXOOOOlOOO not CTS 


,8F9B 26F4 


190 




bne 


rti:*FFC8 ignore CTS interrupt glitch 


8F9D 20FE 


191 




bra 


1 wierd condition 


8F9F 


192 


noint:*FFC8 








193 




fin 


iodriverpoll 


0000 


194 




if 


iodriverraj! 




521 




fin 


ibdriverran 




522 










523 








8F9F 7EBEi2 


557 


JMP SB0S+S50S: 


lOINT go switch stacks now 




558 








8FA2 


559 


STACKSBITCHEDDEVICEPOLL 5 


coae here after switching stacks 


0001 


560 


! IF CLOCK 






561 


liCLUBE 




IDCLOCK.ASH 


0000 


1 




IF 


lODRIVERBDDY 




201 




FIN 


lOBRIVERBOBY 


0000 


202 




IF 


iODRIVERRAJI 




228 




FIN 


lODRIVERRAH 




229 






, 




230 










562 


FiN 






0001 


563 


: IF STDRABEDEHON 




564 


INCLUDE 




lOSTOREDEfiON.ASH 


0000 


1 




IF 


lODRIVERBODY 




781 




FIN 


iodriverbqdV ' 


0001 


782 




IF 


IODRIVERPOLL 


0001 


783 




IF 


USESEHONASCLOCK 




784 




;LOA 


VIAIFR . CHECK FOR CLOCK INTERRUPT FRDH 


8FA2 B6FF4D 


785 




LBAA 


VIAIFR 


8FA5 84C0 


786 




ANBA 


#7.11000000 IRS ^ClOCK DONE ? 




78? 




iCHPA 


#Xi 1000000 ...? 


8FA7 81C0 


788 




CMPA 


tXi 1000000 


BFA9 2608 


789 




BNE 


WDCPQLLi 8/ NO 




790 




jSTft 


VIAIFR ACKNOiJLEDSE THE CLOCK INTERRUPT 


8FAB B7FF4D 


791 




STAft 


VIAIFR 



OFTKARE DYNAMICS m 



MAL/6800 1.3F! 
01/14/83 11:39 
lOSTOREDEHON.A 

8FAE 8601 

8FB0 7EBEiB 
8FB3 



8FB3 B6FF4D 
8FS& 84D0 

8FB8 8190 
aFBA 2603 

8FBC 7E8C69 
8FBF 

0000 

0000 



0001 
0000 
0000 
0000 
0000 
0001 



8FAB BBOSDRIVERS 
33; Page 82; Form 1 
iSH 
792: 
793: 
794: 
795: 

796; WDCPOLLl 
797: 
798: 
799: 
800: 

801: ^ 
802: 
803; 
804: 
005: 

806: aCCPOLLNEXT 
807: 



III SDOS I/O drivers •for Mavetlate Jupiter II 
VT Interrupt Poll Chain 
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808; 
833: 
834: 
886: 
887: 
565: 
566: 
567: 
1: 
57: 
58: 
127: 
128: 
172; 
173: 
410: 
411: 



SDOS+SDOS:CLDCKTICKED 
SDOS+SDQS: CLOCK! iCKED 
t 
USEDEJIONASCLOCK 



•LDA #1 = 1/60TH SECOND 

LDAA #1 

|JHP 

JHP 

EQU 

FIN 

I LDA 

LDAA 

ANDA 

jCHPA 

CUPS 

6NE 

;JHP 

m 

EQU 
FIN 
IF 
FIN 
IF 
FIN 
ENS 
FIN 

IF VIRTUALFLOPPV 

INCLUDE IQVFD.ASH 

IF lODRIVERBODV 
FIN lODRIVERBQDY 
IF lODRIVERRAH 
FIN lODRIVERRAil 
IF lODRIVERINIT 
FIN lODRIVERINIT 
IF lODRIVERBODV 
FIN IQDRIVERBQDY 
IF lODRIVERPQLL 



VIAIFR 

VIAIFR 

#7.11010000 

I7.1001OOO0 ■ 

#7.10010000 

HDCPOLLNEXT 

WDC INTERRUPT 

HDCINTERRUPT 

t 

lODRIVERPOLL 

lODRIVERINIT 

lODRIVERINIT 

lODRIVERRAH 

lODRIVERRAN 

; UNEXPECTED EOF 



ACCEPT DISK INTERRUPT ONLY IF NO CLOCK INTERRUPT PENDINB 

HASK TO OBTAIN CLOCK AND DISK INT BITS 
DISK ONLY ? 

B/ NO 

YES, SO SERVICE DISK INTERRUPT 



HAL/6800 1.3F: 
01/14/83 ll!39 
IDVFE.fiSH 

8FBF 

0002 
8FBF B&FFAl 

eFC3 
8FCZ 8580 
8FC4 2709 
8FCi CE9017 
8FC9 FtFFA3 
8FCC 7E86B5 

8FCF 

0002 
8FCF BiFFSl 

8FD3 
8FD2 3580 
BFM 2709 
8FDS CE9045 
8FD9 F6FF83 
8FDC 7E8iB5 
, 8FBF 



0000 



8FBC SDDSDR1VER8 
!33| Page 83; Form 1 



m SDOS i/O drivers for Saveilate Jupiter II (C) 1978 SOFTi^ARE DYKAHICS Ut. 
Virtual Flappy Driver Interrupt-Level Routines 



8FDF FE8FE9 
8FE2 08 
8FE3 FF8FE9 
8FE6 7EBEi5 



413; 
414 
415; 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 

433: 

434 
435 
995 
996 
997 
563 
569 
570 
571 
572 
573 



CISKINTSERVICE 

IF PERSCI 

LMA PERSCI :PIACB 
PERSCIINTERRUPTHASK EBU »+l j set by 

BITA »J80 

BEQ DISKINTPERSCI.NO 

LDX «CCB: PERSCI 

LDAB PERSCIiPIADB 

JMP BISKIMTERRUPT 
DISKINTPERSCI.NQ ; not Persci 

FIN PERSCI 

IF DAMFLQPPY 

LDAA MHFLOPPY:PIACB 
BAMFLOPPYINTERRUPTHASK equ 1+1 

BITA «*30 

BEQ DISKINTCAHFLDPPY.NO 

LDX tCCBiCAHFLOPPY 

ldab damflqppy:piadb 
jhp diskinterrupt 
siskintdahfloppy.no 

FIN DAHFLOPPV 

fin IODRIVERPOLL 

IF IODRIVERBODY 

FIN IODRIVERBODY 



FIN 

LDX BADINTERRUPTCOykJT 

INX 

STX BflDINTERRlJPTCOUNT 

JHP SDQS+SDOSsRTI 



PerSci Controller 
RESET routines 
Want interrupt ? . 

FerSci interrupted, so absorb the 
interrupt fro« that controller 



DAH Floppy Controller 

Nant interrupt ? 

DAH Floppy interrupted, so absorb 
. the interrupt Iros that controller 



CAN'T FieURE OUT WHO IT IS... 
BUHP CRAZY INTERRRUPT COUNTER 

AND HOPE IT SENT A»AY ! 



fiAL/6800 1.3F! 


8FE6 SDQSDRIVERS 


m SDOS I/Q drivers for WaveHate Jupi'ter I 


01/14/83 ll!39:33i Page 84; Fori 1 


tit UORKING STDRABE Mt 


lOJUPITER.ASfi 








0000 


575: lODRIVERPQLL 


SET 





0001 


576: lODRIVERRAH 
577: 


SET 


1 


8FE9 0000 


578: BADIKTERRUPTCDUNT FDB # OF INTERRUPTS FROH UNKNOWN DEVICES 




579: 






0000 


580: IF 


SDOSHT 






588: FIN 


SDOSHT 






589: . 






OOOi 


590: IF 


CLOCK 






591: INCLUDE 


lOCLQCK.ASH 


0000 


1: 


IF 


lODRIVERBODY 




201: 


FIN 


lODRIVERBQDY 


OOOi 


202: 


IF 


lODRIVERRAfi 


8FEB 01 


203: CLQCKDCB 


FCB 


1 CLOCK'S ALWAYS DONE 


8FEC 0000 


204: 


FDB 


1 ASTER 


8FEE 8FFB 


205: 


FDB 


CLOCKSTR 


8FF0 0000 


206: 


FDB 


NEXTDEVICEDCB 


8FF2 8415 


207: 


FDB 


CLOCKDRIVER 


8FF4 


208: DIViODIVIDEND 


EQU 


1 


8FF4 000000 


209: CLOCKBUFFER 


FCB 


0,0,0 


8FF7 00 


210: DAY 


FCB 





8FF8 00 


211: MONTH 


FCB 





8FF9 00 


212: YEAR 


FCB 





8FFA FF 


213: CLOCKFRACTIQN 


FCB 


-! 


8FFi 434C4F43 


214: CLOCKSTR 


FCC 


'CLOCK:' 


9001 00 


215: 

216: i 


FCB 





8FEB 


217: NEXTDEVICESCB 
218: i 


SET 


CLOCKDCB 


9002 


219: TIME* 


EQU 




9002 30303A 


220: TINE! : HOURS 


FCC 


'00:' 


9005 30303A 


221: TI11EI:11INUTES 


FCC 


'00:' 


9008 303020 


222: TIME$:SECONDS 


FCC 


'00 ' 


900B 


223: DAT£$ 


EQU 




900B 30302F 


224: DATE$:HONTH 


FCC 


'00/' 


900E 30302F 


225: DATE$:DAY 


FCC 


'00/' 


9011 3030 


226: DATE*: YEAR 
227: * 


FCC 


'00' 




228: 


FIN 


lODRIVERRAM 




229: 








230: 








592: FIN 






0000 


593: IF 
595: FIN 


BLACKHOLE 




0000 


596: IF 
599: FIN 


SDLP 




0001 


600: IF 


VIRTUALFLOPPY 




601: INCLUDE 


lOVFD.ASM 


0000 


1: 


IF lOBRIVERBODY 




57: 


FIN 


lODRIVERBQDY 


0001 


58: 


IF' 


lODRIVERRAH 


9013 0002 


59: DISKINTDCB 


RHB 


2 address of DCB tor int 


9015 0002 


60: DISKINTCCB 


RHB 


2 address of CCB for int 



HAL/iSOO 1.3F! 


9015 


SDQSCRIVERS 


lit SDOS I/O drivers ^or HaveRats Jupiter li (C) 1978 SO 


01/14/83 11:39 


:33| Page 85j Form 1 


lit mmim stdrabe ttt 


lOVFD.ASH 










62: 
63 
64: 


* 


Controller Definitions 


0002 




IF 


PERSCI 




65 
66 
67 


t 


PerSci 


Controller 


9017 


CCB:PERSCI 






9017 01 


68. 




FCB 


1 ' controller busy: = yes, <>0,= no 


90IB FFAO 


69 




FDB 


$FFAO address 


901A 00 


70 




FCB 


timeout counter 


90IB FF 


71 




FCB 


$FF drive to access 


901C FF 


72 




FCB 


IFF cylinder to access 


901B FF 


73 




FCB 


tFF last cylinder accessed 


?OiE 86C2 


74 




FOB 


DISKINTSTARTPERSCI 


902O 7E8864 


75 




JHP 


PERSCI: STATUS 


9023 7E8891 


76 




JKP 


PERSCI 5 RESET 


9026 7E887B 


77 




JHP 


PERSCI: ABORT 


9029 7E886e 


78 




JHP 


PERSCI ;RESTORE 


902C 7E8895 


79 




JHP 


PERSChSETSEEK 


902F 7E8897 


80 




JHP 


PERSCI: SEEK 


9032 7E88B3 


31 




JHP 


PERSCI :REfiDSECTOR 


9035 7E88CF 


82 




JHP 


PERSCI :WRITESECTOR 


9038' 7E88AC 


83 




JHP . 


PERSCI :VERIF¥SECTQR 


903B 


84 


FDTIHEOUTBLOCK 


SET 


1 ■ 


903B 0000 


85 




FDB 


NEXTTIHEOUT tiaeout block lor PerSci Hoppies 


9031) 0000 


86 




FDB 


, fuse length 


903F 897i 


87 




FDB 


PERSCI :TIHEOUT ■ 


0001 


38 


NTIMEOUTS 


SET 


NTIHEOUTS+1 


903B 


89 


: NEHTIMEOUT 


SET 


FDTIHEOUTBLOCK 


9043 


90 




ORE 


FDTIHEQUTBLOCK+TIHEOUTiSIZE 


9043 0000 


91 




FDB 


current DCB 


0002 


92 




IF 


DAHFLOPPY 



ilAL/6800 1.3F! 


9043 


SMSSRIVERS 


tn 


BDOS I/O drivers for «aveHate Jupiter II iC! I97B SG 


01/14/83 ll!39!33i Page 86; Fors 1 


m W0RKIN8 STORAGE «» 


IQVFD.ftSK 












94! 




FIN 


DAHFLOPPY 




95: 




FIN 


PERSCI 


0002 


96! 




IF 


DAHFLOPPY 




97! 
98: 

99: 


t 


DAH Floppy Controller 


9045 


CCBjDAHFLOPPY 






9045 01 


100: 




FCB 


1 controller busy: = yes, <>0 = no 


904i FF80 


101: 




FDB 


$FF80 address 


9048 00 


102: 




FCB 


tifflfiout counter 


9049 FF 


103: 




FCB 


$FF drive to access 


904A FF 


104: 




FCB 


$FF cylinder to access 


904B FF 


105: 




FCB' 


tFF last cylinder accessed 


904C 8&C7 


106: 




FDB 


DISKINTSTARTSAHFLOPPY . 


904E 7E88EB 


107: 




JHP 


DAHFLOPPY: STATUS 


9051 7Ee914 


103: 




JHP 


DAHFLOPPY: RESET 


9054 7E88FF 


109: 




JHP 


DAHFLOPPY: ABORT 


9057 7E8eF2 


110: 




JHP 


DAHFLOPPY: RESTORE 


905A 7E8918 


111: 




JHP 


DAHFLOPPY :SETSEEK 


905D 7EB91B 


112: 




M 


DAHFLOPPY: SEEK 


9060 7E8938 


113: 




JHP 


DAHFLOPPY sREADSECTOR 


90fa3 7E8952 


114: 




JHP 


DAHFLQPPY:HRITESECTQR 


9066 7E892E 


115: 




JHP 


DAMFLOPPY:VERIFYSECTOR 


9069 


116: 


FDTIflEOUTBLOCK 


SET 


t 


9069 9031 


117: 




FDB 


NEXTTIHEOUT tiseout, block for PerSci floppies 


906B 0000 


118: 




FDB 


fuse length 


906D 897B 


119: 




FDB 


DAHFLOPPV:TIHEOUT 


0002 


120: 


NTiHEDUTS 


SET 


NTIHEOUTS+1 


9069 


121: 


ffiHTIHEDUT 


SET 


FDTiHEOUTBLQCK 


9071 


122: 




DR6 


FDT1HE0UTBLDCK+TIHEQUT:SIZE 


9071 0000 


123: 




FDB 


current DCB 




124: 




FIN 


DAHFLOPPY 



HAL/6800 i.3F: 


9071 SDOSDRIVERS 


m SDOS I/O di 


'ivers for SaveMate Jupiter. II (C) 1978 sui-rwHKt aYHfinius 


01/14/B3 ll!39!33; Page 87; Fans 1 


m M0RKIN6 STORAGE iU 


lOVFD.ftSH 










126! INCLUDE IOVFDDCBS.AS« 




0001 


1: IFUND 


:DCBNIi»BER 




0006 


2: NDISKDCBS 


SET 


NDISKDCBS+PERSCIJKHFDRHAT+PERSCIJilBHFORMAT+DAMFLOPPY 


9073 


3! NEXTDISKDCB 


SET 


» 


0000 


4: i&RIVENUHSER 


SET 





0000 


5: !DCBNUHBER 


SET 





0002 


6! sDftHFLOPPY 


SET 


DAHFLOPPY 


0002 


7: iPERSCI 


SET 


PERSCl 


9073 


8! iHEADCHAlN 


SET 


* 


0000 


9: iNEHCHAIN 


SET 





0002 


iOs IF 


PERSCl 




0001 


11: :HHFDR!1AT 


SET 


WHFQRHAT 


0001 


12: !JBHFORHAT 


SET 


IBftFQRHAT 




13: FIN 


PERSCl 




0003 


14: ELSE 








24: ■ FIN 


!DCBNUHBER 





milbm 1.3F! 9071 SDOSDRIVERS 
01/14/83 11:39!33; Page 88 | Form I 
lOVFDDCBS.ASH 
0002 



m SDOS I/O drivers for Wavefiate Jupiter II 

m mmm storabe m 



10 1978 SOFTWARE DYNAHICS *** 



0100 
0012 
OOOi 
0028 
0000 
0000 
9045 
0003 



9073 

005B 

9073 00 

9073 

9073 01 

9074 00000000 
907C 01000012 

90Bi 
90Bi 7E875E 

90BB 
90BB OOFF 

90BE 
90BE 0000 
90C0 90730000 
90C4 9045 

90C6 
90C4 0001 

90CE 

0012 
90CE 00 

90EO 

9076 
9076 90E0 
. 90E0 

0000 

90E0 44303ft00 



26; 

27: 

28! 

29: 

30: 

31: 

32: 

33: 

34: 

35: 

36: 

62: 

63: 

64: 

65: 

66: 

68: 

69: 

71: 

72: 

73: 

74: 

75: 

76: 

77: 

78: 

79: 

80: 

81: 

82: 

83: 

84 

85 

87; 

88 
90 
91 
92 
93 
94 
96 
97 
98 



IF !DftRFLQPPY 
t BAH Floppy 



!BPS 

:SPT 

:TPC 

!CVL 

:DATA 

! FIRST SET 

! CONTROLLER 



SET 256 
SET 18 



:DC6 



SET 1 
SET 40 
SET . 



SET 
ELSEIF 
m :DAHFLOPPY 



bytes per sector 

sectors per track 

tracks per cylinder 

cylinders 

don't compleisent data 

first sector 

CCB:BAMFLOPPY 

:PERSCI 



Device Control Block 



SET 
RPT 
FCB 
0R8 
FCB 
FOB 
FOB 
ORB 
JHP 
ORG 
FCB 
ORB 
FCB 
FSB 
FEB 
QR8 

FBB; 

ORG 
RPT 

FCB 

SET 

ORG 

FDB 

ORG 

IF 

ELSE 

FCB 

FIN 



FDSIIE 



:DCB 

1 

0,0,0,FBDRIVER. 

:BPS,:SPTi!TPC,:CYL 

!DCB+FD1)STATEJ 

DISKINTUNEXPECTED 
DCB+FDBRIVE 
DRIVEHUMBER,*FF 
DCB+FBCOHPLEMENT 
DATA,!FIRST 
HEABCHAINjO 
CONTROLLER 

:DCB+FDi1APALG 

1 

:DCB+FBHAP 

:SPT 

J-i:DCB+FDHAP) 

* 

:IiCB+DCB:NA!1E 



!BC8NUMBER>9 

'D,'0+:DCBNUHBER,':,0 
:fiCBNUHBER>9 



clear deb 



set siapalgorithi intially to 1 



MAL/6800 1.3F! 


9OE0 


SDOSBR 


I VERS 


m SDOS I/O dr 


ivers iar WaveHate 


01714/85 11:39!33| Page 89| 


FDra I 


»IJ iJDRKING STORAGE *t» 


lOVFDDCBS.ASH 












0001 


100: 


:DCBNU«BER SET 


sDCBNUMBER+1 


0001 


101 


sDRIVENUHBER SET 


:DRIVENUHBER+1 


0001 


102: 




IF ^sNEXTCHAIN 




0001 


103 


jNExtchain ; 


5ET 


1 




104: 




FIN SijNEnCHAIN 




0000 


105 




IF 


DRIVENUHBER&XIO 






143: 




FIN : 


DRIVENUHBERWiO 




0004 


144 




IF 


PERSCI+sDASFLQPPY 






145: 




INCLUDE 




IPVFDDCBS.ASM 


0000 


1 
14 




IFUND 
ELSE 


DCBNUHBER 




90E4 


, 15 


:: 


SET 


I 




9078 


ib 




QR8 


DCB+DCB:NEnDCB 




9078 90E4 


17 




FDB 


: 




90E4 


18 




0R8 . 


B 




0001 


19 




IF 


•NEXTCHAIN 




90C2 


20 




ORB 


DCB+FDNEXTCHAIN 




90C2 90E4 


21 




FDB 


; ; 




90E4 


22 




0R6 


: 






23 




FIN 


iNEXTCHAIN 






24 




FIN 


DCBNUHBER 





HAL/iBOO 1.3F! 


90C2 SDOSDRIVERS 


m SDOS I/O dn 


vers for KaveHate Jupiter 


01/14/83 11:39:33! Page 90; 


Fom 1 


m WORKING STORAGE J*» 


lOVFBDCBS.ASM 










0002 


26: 


IF 


;DAHFLOPPY 






27: 1 


DAM Floppy 






28: 








0100 


29: ;BPS 


SET 


256 


bytes per sector 


0012 


30: :SPT 


SET 


18 


sectors per track 


0001 


31: :TPC 


SET 


1 


tracks per cylinder 


0028 


32: :CYL 


SET 


40 


cylinders 


0000, 


33: :DATA 


SET 





don't compleaent data 


0000 


34: :FIRST 


SET 





first sector 


9045 


35: :CONTROLLER 


SET 


CCB:DAHFLOPPV 


0004 


3&: 


ELSEIF 


:PERSC1 




62: 


FIN 


:DAHFLQPP¥ 






63: 










64: 1 


Device Control Block 






65: 








90E4 


66: :!)CB 


SET 


J 




005B 


68: 


RPT 


FDSIZE 


clear deb 


90E4 00 


69: 


FCB 







90E4 


71: 


0R6 


:DCB 




90E4 01 


72: 


FCB 


1 




90E5 00000000 


73: 


, FDB 


0,0,0,FDDRIVER 




90E5 01000012 


74: 


FSB 


:BPS,:SPT5:TPC,:CYL 




9127 


75: 


ORG 


:DCB+FDDSTATE>I 




9127 7E875E 


76: 


JHP 


DISKINTUNEXPECTED 




912C 


77: 


ORB 


:DCB+FDDRIVE 




912C OlFF 


78: 


FCB 


:DRIVENUHBER,$FF 




912F 


79: 


ORG 


:i)CB+FDCOHPLEHENT 




912F 0000 


80: 


FCB 


:DATA,:FIRST 




9131 90730000 


81: , 


FEB 


:HEADCHAIN,0 




9135 9045 


82: 


FDB 


: CONTROLLER 




9137 


83: 


ORG 


jDCB+FDHAPALB 




9137 0001 


84: 


FDB 


1 


set iapalgorithiB intia 


913F. 


85: 


ORG 


:DCB+FBHAP 




0012 


87:, 


RPT 


:SPT 




913F 00 


88: 


FCB 


«-!:DCBtFDHAP) 




9151 


90: :: 


SET 


'i 




.90E7 


91: 


ORB 


:DCB+DCB:NAI1E 




90E7 9151 


92: 


FDB 


:: 


*" 


9151 


93: 


ORG 


a 1 




0000 


94: 

96: 


IF 
ELSE 


:DCB»UHBER>9 




9151 44313600 


97: 


FCB 


'Dj'O+.'DCBNlfflSER,': 


,0 




98: 


FIN 


:DCBNUI1BER>9 





tlAL/6800 i.3F! 


9151 


3D0SDRIVERS 


m SDOS I/O dr 


vers for Bavefiate 


01/14/83 il!39 


!33| 


Page 91; ForiB 1 


m WQRKINS STORAGE Ut 


lOVFBDCBS.ftSH 










0002 


100 


:DCBNMER 


SET 


:DCBNUI1BER+1 


0002 


101 


! :&RIVENU!1BER 


SET 


:DRIVENUHBER+1 


0000 


102 


IF 


ksNEHCHAIN 






104 


! FIN 


S!:NEXTCHAIN 




0002 


105 


IF 


iORIVENURBERMlO 




0002 


lOi 


! IF 


:l)ftt1FLQPP¥ 




0000 


107 


sDAHFLOPPY 


SET 


!l)AHFLQPPY-2 


0001 


108 


! IF 


:DA«FL0PPY<1 




0000 


109 


!l>RIVENUHBER , 


5ET 







110 


! FIN 


:1)AMFL0PPY<1 




0001 


111 


IF 


NEHCHAIN 




0000 


112 


■ :NEXTCHAIN 


SET 







113. 


FIN 


NEXTCHAIN 




9155 


114 


:HEADCHAIN 


SET 


t 


0005 


115! 


ELSEIF 




:PERSCI 




142 


FIN 


iDAHFLOPPY 






143 


FIN 


DRIVENUHBER&XIO 




0002 


144 


IF 


:PERSCI+:DAHFLQPPY 






145i 


INCLUDE 


lOVFDBCBS.ASH 


0000 


1 

14! 


IFUN& 
ELSE 


iDCBNUHBER 




,9155 


15 


:: SET 


1 




90E9 


16: 


ORG 


DCB+DCB.'NEXTDCB 




90E9 9155 


17 


FDB 


; 




9155 


13: 


0R8 


t 




0000 


19 


IF 


NEXTCHAIN 






23: 


FIN , 


NEXTCHAIN 






24 


FIN 


DCBN'JHBER 





HAL/fi800 1.3FS 


90E9 


SDOSDRiVERS 


m SDOS I/O drivers for ttaveHate Jupit 
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Forffl 1 


m IJORKING STORAGE til 


IDVFDDCBS.ASH 












0000 


26! 




IF 


:DAHFLOPPY 




0002 


36: 




ELSEIF 




:PERSCI 


0001 


37: 




IF 


!lBHFORHAT 






38: 


t 


IBM Disk 






39: 










0080 


40: 


:BPS 


SET 


128 


bytes per sector 


OOIA 


41: 


:SPT 


SET 


26 


sectors per track 


0001 


42: 


:TPC 


SET 


I 


tracks per cylinder 


004D 


43: 


;CYL 


SET 


77 


cylinders 


0001 


44: 


:i)ATA 


SET 


1 


cosplenent data 


0001 


45: 


: FIRST 


SET 


1 


Hrst sector 


9017 


46: 


: CONTROLLER 


SET 


CCB:PERSCI 


0006 


47: 




ELSEIF 




;WNF0Rt1AT 




59: 




m 


:IBHF0RI1AT 




0005 


60: 




ELSE 








62: 




FIN 


:DAMFLOPPY 






63: 












64: 


» 


Device 


Control Block 






65: 










9155 


66: 


:!)CB 


SET 


t 




005B 


68: 




RPT 


FDSIZE ; 


clear deb 


9155 00 


69: 




FCB 


) 




9155 


71: 




0R8 


:DCB 




9155 01 


72: 




FCB 


i 




9156 00000000 


73: 




FDB 


D,O,0,F»DRIVER 




915E 0080001A 


74: 




FDB 


BP3,!SPT,sTPC,:C¥L 




9198 


75: 




ORG 


:DCB+FDDSTATEiJ 




9198 7E875E 


76: 




JMP 1 


)ISK1NT1JNEXPECTED 




919D 


77: 




0R8 


:DCB+FDDRIVE 




919D OOFF 


78: 




FCB 


DRIVENyHBERjIFF 




91 AO 


79: 




ORG 


;DCB+FDCO«PLEMENT 




91A0 0101 


80: 




FCB 


DATA,: FIRST 




91A2 91550000 


81: 




FDB 


HEADCilAIN,0 




9ift6 901? 


82: 




FDB 


CONTROLLER 




91A8 


83: 




ORG 


■DCB+FDHAPAL8 




91AB 0001 


84: 




FDB 




set (itapalgorithffl inti 


9iB0 


85: 




ORG 


DCB+FDHAP 




OOIA 


87: 




RPT 


SPT 




9180 00 ■ 


88: 




FCB 


!-(:DCB+FDWi 




9iCA 


90: 


:: 


SET ) 






9158 


91: 




ORG 


DCB+DCB:NSHE 




9158 91CA 


92: 




FDB : 


R 




91CA 


93: 




ORG 


« 




0000 


94: 
96: 




IF ; 
ELSE 


DCBNUHBER>9 




9iCA 44323A00 


97: 




FCB ' 


S,'0+:DCBNlJHBER,':iO 






98: 




FIN 


DCBNUHBER>9 





HftL/6800 1.3F: 91CA SDOSDRIVERS 
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1978 SOFTWARE BYNAHICS tti 



0003 


100 


sDCBNUHBER SET 


:DCBNUMBER+i 


0001 


101 


iDRIVENUHBER ! 


5ET 


sDRIVENUHBER+l 


OOOi 


102. 


IF iiNEHCHAIM 




0001 


103 


:NEXTCHAIN ! 


5ET 


i 




104 


FIH S!:NEXTCHAIN 




0000 


105 


IF 


CRIVENUHBERikZlO 






143! 


FIN ! 


DRIVENUHBER&XIO 




0002 


144 


IF 


PERSCI+iDA«FLQPPY 






145- 


INCLUDE 




lOVFDDCBS.ASN 


0000 


i 

14 


IFUNB 
ELSE 


DCBNUNBER 




9iCE 


15 


!! SET 


( 




9i5A 


16 


QRS : 


DCB+DCBiNEXTDCB 




915A 9iCE 


17 


FDB 


! 




9iCE 


18 


QRS . 


■ 




0001 


19 


IF 


NEHCHAIN 




91A4 


20 


QRS i 


KB+FDNEXTCHAIN 




91A4 91CE 


21 


FDB 


! 




91CE 


22 


0R6 


: 






23 


! FIN 


■NEXTCHAIN 






■ 24 


FIN 


KBNUNBER 





HAL/6800 1.3F: 


91ft4 


SDOSDRIVERS 


m SDOS I/O drivers for WaveHat? Jupit 


01/14/83 ll;39!33i Page 94 j 


Foris 1 


m aORKINB STORAGE Ut 


lOVFDDCBS.ftSH 












0000 


26: 




IF 


iDAMFLQPPY 




0002 


36 




ELSEIF 


jPERSCI 


0001 


37: 




IF 


:IBHFORHftT 






38 


t 


IBH Disk 






39: 










0080 


40: 


:BPS 


SET 


128 


bytes per sector 


001ft 


41 


jSPT 


SET 


26 


sectors per track 


0001 


42; 


sTPC 


SET 


1 


tracks per cylinder 


004D 


43 


:CYL 


BET 


77 


cylinders 


0001 


44; 


:DftTft 


SET 


1 


coflipleaent data 


0001 


45 


:FIRST 


SET 


1 


first sector 


9017 


46: 


! CONTROLLER 


SET 


CCB;PERSCI 


0007 


47 




ELSEIF 


:W11F0R«AT 




59, 




FIN 


jIBHFORilfiT 




0006 


60 




ELSE 








62 




FIN 


:DfiHFLQPPY 






63 












64 


1 


Device Control Block 






65 










91CE 


66 


:DCB 


SET 


t 




005B 


68 




RPT 


FDSIIE 


dear deb 


91CE 00 


69 




FCB 







91 CE 


71 




ORG 


:DC6 




9iCE'0i 


72 




FCB 


1 




9iCF 00000000 


73 




FDB 


0,0,0,FDBRIVER 




91D7 0080001ft 


74 




FDB 


;BPS,sSPT,:TPC,5C¥L 




9211 


75 




ORB 


sDCB+FDDSTATEJ 




9211 7EB75E 


76 




JHP 


DISKINTUNEXPECTED 




9216 


77 




ORG 


iDCB+FDDRIVE 




9216 OlFF 


78 




FCB 


!DRIVENIJHBER,*FF 




9219 


79 




ORG 


:DCB+FDCDHPLEiiENT 




9219 OiOi 


80 




FCB 


: DATA, .-FIRST 




92 IB 91550000 


ai 




FDB 


sHEADCHAIN,0 




921F 901? 


82 




FDB 


: CONTROLLER 




9221 


S3 




QR8 


jDCS+FDHAPALS 




9221 0001 


84 




FDB 


1 


set (Bapalgorithsi int 


9229 


85 




ORG 


sDCB+FDHAP 




OOIA 


07 




RPT 


:SPT 




9229 00 


88 




FCB 


»-(!DCB+FDHftP) 




9243 


90 


! :: 


SET 


* 




91D1 


91 




ORB 


:DCB+DCB:NAHE 




91S1 9243 


92 




FDB 


:: 




9243 


93 




ORG 


> 1 




0000 


94 
96 




IF 
ELSE 


:DCBNUMBER>9 




9243 44333ft00 


97 




FCB 


'D,'0+:DCBNUHBER,':,0 






98 




FIN 


:DCBNUHBER>9 





HAL/6800 1.3F! 


9243 


SDOSDRIVERS 


III SDOS I/O dr 


vers for WaveHate 
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>age 95; Form 1 til SORKIdB STORAGE lit 


lOVFDDCBS.ASM 








0004 


100! 


:DCBNUHBER SET 


:DCBNUHBER+1 


0002 


101 


iDRIVENUMBER SET 


sDRlVENUHBER+l 


0000 


102! 


IF 4:NEnCHAIN 






104 


FIN li:NEXTCHAIN 




0002 


105! 


IF :DRIVENU«BER?tX10 




0000 


106 


IF . rBAHFLOPPY 




0002 


115. 


ELSEIF 


iPERSCI 


0001 


116 


IF ilBHFQRHAT 




0000 


117 


ilBHFQRHAT SET 





000 i 


US 


IF !«HFORHAT 




. 0000 


119 


sDRIVENUHBER SET 


5DRIVENUHBER-2 


0009 


120 


ELSE 






130 


FIN iMHFORMAT 




0008 


131 


! ELSEIF 


iUHFORHAT 




141 


FIN ilBHFQRHAT 






142 


: FIN iDAHFLDPPY 






143 


FIN iSRIVENUilBERiXlO 




0002 


144 


! IF sPERSCI+iDAHFLOPPY 






145 


INCLUDE 


lOVFDDCBS.ASH 


0000 


1 


! IFUND sDCBNUHBER 






14 


ELSE 


, 


9247 


15 


! J! SET 1 




9iD3 


16 


ORG 


DCB+DCB:NEXTDCB 




91D3 9247 


17 


: FOB 


1 




9247 


18 


QRS 


i 




0001 


19 


: IF 


■HEHCHAIN 




921D 


20 


ORG ■ 


DCB+FDNEKTCHAIN 




921B 9247 


21 


: FDB 


;: 




9247 


22 


ORG 


: 






23 


! FIN 


■NEXTCHAIN 






24 


FIN 


DCBNUHBER 
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0000 


2b: 




IF 


iDAHFLOPPY 




0002 


36 




ELSEIF 


iPERSCI 


0000 


37: 




IF 


!lB«FORHAT 




0001 


47 




ELSEIF 


iWHFQRRAT 




48: 


t 


ijaveaiate Bisk 






49 










0100 


50: 


iBPS 


SET 


256 


bytes per sector 


0010 


51 


iSPT 


SET 


16 


sectors per track 


0001 


52. 


:TPC 


SET 


1 


tracks per cylinder 


004D 


53 


■ :CYL 


SET 


77 


cylinders 


0000 


54. 


iBATA 


SET 





don't coaplenent data 


0000 


55 


: FIRST 


SET 





first sector 


9017 


5i 


s CONTROLLER 


SET 


CCBsPERSei 


0008 


57 




ELSE 








59 




FIN 


ilBHFORHAT 




0007 


60 




ELSE 








62 




FIN 


sDAHFLQPPY 






63 












64 


i 


Device Control Block 






65 










9247 


66 


:DCB 


SET 


t 




005B 


63 




RPT 


FDSIZE 


clear deb 


9247 00 


69 




FCB 







9247 


71 




ORB 


:DCB 




9247 01 


72 




FCB 


1 




9248 00000000 


73 




FDB 


0,0,0, FDBRIVER 




9250 01000010 


74 




FDB 


:BPSj!SPT,:TPC55CYL 




928A 


75 




ORG 


:DCB+FDDSTATEJ 




928A 7E875E 


76 




JHP 


SISKINTONEXPECTED 




92SF 


77 




ORG 


:DCB+FDDRIVE 




928F OOFF 


78 




FCB 


:DRIVENUHBER,IFF 




9292 


79 




0R6 


sDCB+FDCOHPLEHENT 




9292 0000 


80 




FCB 


:DATA,!FIRST 




9294 91550000 


81 




FDB 


:HEADCHAIN,0 • 




9298 9017 


82 




FDB 


: CONTROLLER 




929A 


83 




ORG 


!DCB+FD«APALG 




929A 0001 


84 




FDB 


1 


set iapalgoritha intia 


92A2 


85 




ORB. 


:DCB+FDHAP 




0010 


87 




RPT 


iSPT 




92fl2 00 


88 




FCB 


*-i!DCB+FDHSP) 




9212 


90 


a t 


SET 


i 




924A 


91 




ORB 


iDCB+DCBsNAHE 




V24S 92B2 


92 




FDB 


:: 




92B2 


93 




ORG 


;; 




0000 


94 
96 




IF 
ELSE 


:DCBNU!iBER>9 




9282 44343A00 


97 




FCB 


'D,'0+;DCBNUHBER,'5,0 






98 




FIN 


!DCBNUMBER>9 
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0005 


100! 


!DCBnuhber set 


:DCBNUt1BER+i 


0001 


lOl! 


iBRIVENUHBER £ 


SET 


:DRIVENUHBER+1 


0000 


102! 


IF 8t:NEXTCHAIN 






104! 


FIN I 


*:NEnCHfiIN 




0000 


105! 


IF : 


DRIVENUHBER&XIO 






143: 


FIN 


DRIVENUHBER&XIO 




0002 


144! 


IF : 


PERSCI+iDAflFLQPPY 






145! 


INCLUDE 


lOVFDDCBS.ASH 


0000 


1: 

14: 


IFIiND ; 
ELSE 


DCBNUMSER 




92B6 


15: 


:: SET t 


■ 




924C 


16: 


ORB 


DCB+DCB!NEXTDCB 




924C 92B6 


17! 


FD8 i 


fl 




92Bi 


18: 


ORG 


: 




0001 


19: 


IF 


NEXTCHAIN 




929i 


20: 


DRQ 


DCB+FDNEXTCHftIN 




9296 92B4 


21: 


FDB 


: 




92B6 


22: 


ORG 


! 






23! 


FIN 


NEXTCHAIN 






24: 


FIN 


■DCBNUHBER 





!1AL/6a00 1.3F: 


9296 SDOSDRIVERS 


m SDOS I/Q drivers for MaveHate Jupiter 


01/14/83 ll!39! 


33; Page 98; 


Fors 1 


m S0RKIN6 STORAGE tU 


lOVFBDCBS.ASM 










0000 


26: 


IF 


:DAHFLOPPV 




0002 


36: 


ELSEIF 


:PERSCI 


0000 


37:. 


IF 


;IBHFQRftAT 




0001 


47! 


ELSEIF 


:iiiHFORHAT 




48: t 


WaveiDate Disk 






49: 








0100 


50: :BPS 


SET 


256 


bytes per sector 


0010 


51: !SPT 


SET 


16, 


sectors per track 


0001 


52: !TPC 


SET 


1 


tracks per cylinder 


004D 


53: :C¥L 


SET 


77 


cylinders 


0000 


54:.: DATA 


SET 





don't cofflpleient data 


0000 


55: :FIR9T 


SET 





first sector 


9017 


56: : CONTROLLER 


SET 


CCB:PERSei 


0009 


57; 


ELSE 








59: 


FIN 


:IBHFQRHAT 




0008 


60: 


ELSE 








62: 


FIN 


:DAHFLQPP¥ 






63: 










64: i 


Device Control Block 






65: 








92B6 


66: :DCB 


SET 


t 




005B 


68: 


RPT 


FDSIZE 


clear deb 


92B6 00 


69: 


FCB 







52B6 


71: 


ORB 


:DCB 




nu 01 


72: 


FCB 


1 




92B7 00000000 


73: 


FDB 


0,0,0,FDDRIVER 




92BF 01000010 


74: 


FDB 


:BPSs:SPT,!TPC,:CYL 




92F9 


75: 


ORG 


:DCB+FDDSTATE3 




92F9 7E875E 


76: 


JHP 


DISKINTUNEXPECTED 




92FE 


77: 


0R6 


:DCB+FDDRIVE 




92FE OlFF 


78: 


FCB 


:DRiVENUHBER,»FF 




9301 


79: 


ORG 


;DCB+FDC0!1PLEt1ENT 




9301 0000 


80: 


FCB 


:DATA,:FIRST 




9303 91550000 


81: 


FDB 


sHEADCHAINjO 




9307 9017 


82: 


FDB 


: CONTROLLER 




9309 


83: 


ORG 


:SCB+FDliAPALG 




9309 0001 


84: 


FDB 


I 


set (liapaigoriths inti; 


9311 


85: 


ORG 


:DCB*FDHAP 




0010 


87: 


RPT 


:SPT 




9311 00 


88: 


FCB 


l-{;DCB+FD«AP) 




9321 


90: :: 


SET 


* 




92B9 


91: 


ORG 


:DCB+DCB:MAS1E 


, , 


92B9 9321 


92: 


FDB 


I s 




9321 


93: 


ORB 


:: 




0000 


94: 
96: 


IF 

ELSE 


:DCBNUHBER>9 




9321 44353A00 


97: 


FCB 


'D,'0+:KBNUHBER,':,0 






98: 


FIN 


:DCBNUHBER>9 





HAL/6800 1.3F! 


9321 


SMSDRIVERS 


m SDOS I/O drivers lor KaveHate Juj 


01/14/83 11:39:33; Page 99; Form I 


%t% mmim storage m 


IQVFBDCBS.ASM 








0006 


100: 


:DCBNU«BER 


SET jDCBKUHBER+I 


0002 


101: 


:DRIVENUHBER 


SET :DRIVENUI1BER+1 


0000 


102: 


IF 


IcNEXTCHAIN 




104; 


FIN 


8!:NEnCHftIN 


0002 


105: 


IF 


:»RIVENUHBERK10 


0000 


106: 


IF 


:DAHFLOPPY 


0002 


115: 


ELSEIF :PERSCI 


0000 


116: 


IF 


:IBI1F0RHflT 


0001 


131: 


ELSEIF :S!1F0RHAT 


0000 


132: 


!PERSCI SET 


:PERSCI-2 


0000 


133: 


IF 


:PERSCI 




140: 


FIN 


:PERSCI 




141: 


FIN 


:IBHFORHftT. 




142: 


FIN 


:DAHFLOPPY 




143: 


FIN 


:DRIVENUHBERSey.}0 


0000 


144! 


IF 


:PERSEI+:MHFLOPPY 




146: 


FIN 


:PERSCI+:DAMFLQPPY 




147. 








148: 








146: 


FIN 


:PERSCU:DAHFLOPPY 




147. 








148: 








146: 


FIN 


:PERSCIt:SAHFLQPPY 




147 








148: 








146: 


FIN 


:PERSCI+:DAHFLOPPY 




147: 








148: 








146: 


FIN 


:PERSCIt:DftfiFLOPPY 




147: 








148: 








146: 


FIN 


:PERSCI+:DAfiFLQPPY 




147! 








148: 








127: 


FIN 


IQDRIVERRAN 


0000 


128. 




IF IODRIVERINIT 




nil 




FIN lOBRIVERINIT 


0000 


173 


IF 


IODRIVERBODY 




410: 


FIN 


lOBRIVERBODY 


0000 


411 


IF 


IOBRIVERPOLL 




434: 


FIN 


lODRIVERPQLL 


0000 


435 


IF 


IDDRIVERBOBY 




995: 


FIN 


IODRIVERBODY 




996 








997: 








602: 


FIN 




0001 


603 


IF 


STQRASEDEHON 




604: 


INCLUDE IDBTOREDEHON.ASM 


0000 


1 




IF IODRIVERBODY, 




781: 




FIN IODRIVERBODY 


0000 


782 




IF IDDRIVERPOLL 




807: 




FIN IDDRIVERPOLL 


0000 


808 




IF IODRIVERINIT 




833: 




FIN IODRIVERINIT 


0001 


834 




IF IQDRIVERRAd 



HftL/iSSO 1.3F: 9325 3D0SCRIVERS 
01/14/83 11:39:33| Page 100; Fors 1 
lOSTQREDEHQN.ASH ' 



m SDOS I/O drivers for Havefiate Jupiter II (C) 1978 SOFTWARE BYNfiHICS iU 
m STORABE DERON »0RKIN6 RAH tit 



9325 01 

9326 0000 
9328 8C6i 
932A 00 
932B 0000 
9321) 00 

932E 01 
932F 0000 
9331 9372 
9333 9073 
9335 B9C4 
9337 0200 
9339 4E34 
933B 0001 
933!) 0001 

0031 
933F 00 

9370 00 

9371 01 

9372 5744313A 

9376 00 
932E 
0007 

9377 01 

9378 0000 
937A 93BB 
937C 932E 
937E 89C4 
9380 0200 
9382 4E34 

9384 0001 
938i 0001 

0031 
9388 00 
93B9 00 
93BS 00 

9385 5744303A 
93BF 00 

9377 
0008 

93C0 9069 
93C2 0000 
93C4 8CF2 



93C0 
0003 



,836: WBCINTERFACE 

837! SDCDCBPO INTER 

838: WDCCDNTINOEPC 

839:' WDCCQUNT 

840: BDCPQISTER 

841: WBCRETRYCNT 

842: 

843: aCClDCB 

844: 

845: 

846: 

847: 

848: 

849: 

850: 

851: 

852: 

853: 

854: 

855: 

856: 

857: 



ttDClSTR 

NEnSiSKCCB 
HDISKDCBS 



859: 
860: 
861: aDCODCB 

862: 

863: 

864: 

865: 

866: 

867: 

868: 

869: 

870: 

871: 

872: 

873: 

874: 

875: 

876: 

877: 

878: 

879: SBCTIMEOUTBLOCK 

880: MCTIHEOUTCOUNT 

881: 

882: 

883: * 



^DCOSTR 

r^XTDISKSCB 
NDiSKDCBS 



0000 



884: 
885: 
886; 
887: 
605: 
606: 
1: 



NExTTIMEOUT 
NTIHEOUTS 



FIN 

I8CLUSE 



FCB 
FDD 
FDB 
FCB 
FDB 
FCB 

FCB 
FCB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
RPT 
FCB 
FCB 
FCB 
FCC 
FCB 
SET 
SET 

FCB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
FDB 
RPT 
FCB 
FCB 
FCB 
FCC 
FCB 
SET 



SET 
SET 
FIN 
END 



a 



1 



»DC1NTUNEXPECTED 







1 



BDCiSTR 

NEXTDISKDCB 

»DCDRIVER 

HDCNBPS 

SDCNSPT 

HDCNTPC 

SDCNCYL 

MDClDCB+DSKI«FO:SIZE-» 







I «DC CONTROLLER IS AVAILABLE 
; CURRENT UNIT IN USE BY INTERRUPT ROUTINES 
I WHERE TO GO «HEN TRANSFER DONE INTERRUPT 
; COUNTS » OF 8 BYTE BLOCKS TO KFER TO 7710 
; POINTER TO NEXT BLOCK OF 8 BYTES TO XFER 
USED TO COUNT » OF REftD/MRITE ATTEMPTS 



DCB:DQNEFLAG 
PCB:LASTERR0R 

DCB:NEXT 
DCB: DRIVER 

DSKINFD:NSPT 
DSKINFO:NTPC 
DSKiNFO:NCYL 



WDCREADBRITEi 
DRIVE SELECT 



IS READ 3 IS SRITE ETC. 



1 

'HDl:' 



NDCIDCB 

NDISKDCBS+i 

1 



«DCOSTR 

NEXTDISKDCB 

WDCDRIVER 

SDCNBPS 

»DCNSPT 

MCNTPC 

WDCNCYL 

«DCODCB+DSKINFO:SIZE-l 







'MDO:' 



SDCODCB 

NDISKDCBS+1 



DCB:D0NEFLA8 
DCB:LASTERROR 

DCB: NEXT 
DCB: DRIVER 

DSKINFO:NSPT 
DSKINFO:NTPC 

DSKINFQ:NCYL 



WDCREADSRITE: 
DRIVE 



CONTAINS DESIRED DISK OPCODE 



FDB NEXTTIHEQUT 

FDB 

FDB ^DCTIHEDOUT 



^DCTIHEOUTBLOCK 
NTIHEOUTS+i 
lODRIVERRAM 
I UNEXPECTED EOF 



lOVTCQNFIS.ASn 



iodriverbody 



HftL/iSOO 


1.3F! 


93C4 


SDOSSRIVERS 


m SDOS I/O drivers ^ 


01/14/83 U!39i33! Page 


101; Fors 1 


m STORftGE DEHQN «0R1 


IQVTCOHFIG.ASfi 
















30: 






fin 


iodriverbody 


0000 




31.' 
39^ 






if 
fin 


iodriverinit 
iodriverinit 


0000 




40! 
57: 






if 
fin 


iodriverbody 
iodriverbody 


0000 




58: 






if 
fin 


iodriverinit 
iodriverinit 


0000 




67: 
84: 






if 

fin 


iodriverbody 
iodriverbody 


0000 




85: 
93: 






if 
fin 


iodriverinit 
iodriverinit 


0000 




94: 
111: 






if 
fin 


iodriverbody 
iodriverbody 


0000 




112: 
193: 






if 
fin 


iodriverpoli 
iodriverpoli 


0001 




194: 






if 


iodriverrai 


0009 




195: 


ntineouts 


set 


6+ntiffleouts 



HAL/ 6800 i.3F: 
01/14/83 li!39; 
IQVTCQNFiG.ASII 

93C6 

0001 

0050 

0001 
0064 

0001 
0050 



93C6 
93C6 0050 

9416 
9416 0050 

9466 

9466 0064 

0001 

0050 

0000 

0000 



94Cfi 
94CA 0050 

95IA 
95iA 0000 

951A 
951A 0000 

0001 

0050 

0001 
0064 

0001 
0050 



951A 
951A 0050 

956A 
956A 0050 

95BA 
958A 0064 



93C4 SDOSDRIVERS Ut SDQS I/O drivers for Wavefiate Jupiter II <C) 1978 SOFTiitARE DYNAMICS tU 

33; Page 102; Fora 1 VT Ring Buffers 

197: Itybuffsrs 

198! ifund outbufsizeslFFCO 

199: Dutbufsize.-tFFCO equ 80 

200! fin 

20l! ifund linebufsizes'lFFCO 

202! UnebufsizeslFFCO equ 100 

203! fin 

204! ifund inbufsizeitFFCO 

205! inbufsizeilFFCO equ 80 

206: fin 

207: f infaufsize should be less than linebufsiie, in order to 

208: i avoid too long typed-ahead line 

209! DutbufitFFCO 

210: rsb oulbufsize!$FFCO 

211: inbuf!»FFCO 

212: rsib inbuf5ize:tFFC0 

213: linebuf!fFFCO 

214: rotb linebuf5ize:*FFC0 

215; ifund outbuf5izeifFFC4 

216: outbufsize!*FFC4 equ 80 

217: fin 

218: ifund linebufsize!iFFC4 

220: fin 

221: ifund inbuf5ize!$FFC4 

223: fin 

224: ; inbufsize should be less than lioebufsize, in order to 

225: ; avoid too long typed-ahead line 

226: outbuf:$FFC4 

227: rfflb outbuf5ize:$FFC4 

228: inbuf:$FFC4 

229: r«b inbufsize: IFFC4 

230: linebuf:*FFC4 

231: riEb linebufsize!$FFC4 

232: ifund DutbufsizB:IFFC8 

233: outbuf5ize:tFFC3 equ 30 

234: fin 

235: ifund linebufsize!$FFCS 

236: linebufsize:IFFC8 equ 100 

237: fin 

238: ifund inbufsize: $FFC8 

239: inbufsize: JFFCS equ 80 

240: fin 

241: 5 inbufsize should be less than linebufsizs, in order to 

242: : avoid too long typed-ahead line 

243: outbuf:*FFC8 

244: rib outhufsizBstFFCB 

245: inbuf:$FFCS 

246: rib inbufsize:tFFC8 

247: lin8buf:SFFC8 

248: rsib liriebufsize:IFFCS 



I1AL/6800 1.3F: 
01/14/83 11:39 
lOVTCONFIG.ASH 

%l£ 
%1E 434F4E53 
%2b 00 

0001 

9i27 

9627 

OOFD 
9627 00 

962A 
9i2A 9ilE 
962C 9763 
962E BDE2 

96DC 
96DC 7E9E4B 
96DF 0C39 

0001 
96Ei 01 

96E2 7E8Bi3 
96E5 7E81)1C 
96E8 7E8EDB 
96EB 7E8EBB 
96EE 7E8B25 

9iC8 

0001 

96C8 

96C8 
9iC8 961)0 
96Cft 0000 
96CC BBB9 
96CE 9627 

961)0 

961)0 
96D0 9804 
96D2 0000 
96D4 BBD6 
96B6 9627 

96B8 
96D8 9724 

96DA 
96DA 9756 

9674 
9674 9416 
9676 0050 

9680 
9680 93C6 
9682 0050 

9684 
9684 08 

968E 
968E 9466 

96ftl 
96A1 64 



95BA SBOSDRIVERS 
:33j Page 103; ForiB 1 



m SD03 I/O drivers for Uavstlate Jupiter II iC) 1978 SOFTWARE 8YNAHICS l»» 
VT KBs 



250 

251 

252 

253 

254 

255 

256 

257; 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 

281 

282 

283; 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295; 

296 

297 

298 

299 

300 

301 

302 

303i 

304 



dcbnafflestFFCO 



ttydcb 



dcbitFFCO 



fee 
fcb 
ifund 



ttytiffleoute 
outputtQblk:*FFCO 



inputtobikiSFFCO 



/CONSOLE:/ 



ttydcb 



fin ttydcb 

rpt dcb;vt5ize 

fcb 

org dcfa:tFFCO+dcb:naaB 

fdb dcbnafflestFFCO 

fdb dcbs*FFC4 

fdb sdQS+5do5;¥tdi5patch 

org dcb:IFFCO+dcb:reset 

jap reset ;tFFCO 

okrts dunp nothing 

if 96800 !i»6301 

nop 

fin 

im ilputdBv:*FFCO 

jBp ilgetdev:$FFCO 

jup illdeviceop no extra control calls defined 

jip illdeviceop no extra status- calls defined 

jsip tlcheckreadys$FFCO go check for acia ready 

org dcb:*FFCO+dcb:outputtablk 

ifund ttytiteouts 

fin ttytiieouts 

fdb inputtoblk:$FFCO 

fdb 

fdb sdo5+5dos:vtoutputtD 

fdb dcb:IFFC0 

org dcb:*FFCO+dcb:inputtQblk 

fdb outputtoblk:«FFC4 

fdb 

fdb 5do5+5do5:vtinputto 

fdb d£b:*FFCO 

org dcb:$FFCOtdcb:tcb 

fdb tcb5$FFC0 

org dcb:fFFC0+dcb:ta5k5tack 

fdb tcbstackilFFCO , 

org dcbs$FFC0+dcb;rinDinba5e 

fdb inbuf:IFFCO 

fdb inbufsizesSFFCO 

org dcb:*FFCO+dcb:ringDatbase 

fdb Qutbuf:$FF'CO 

fdb outbuf5ire:iFFC0 

org deb ; IFFCO+dcb : r i ngoutthreshol d 

fcb outbuf5ize:$FFCO//iO 

org dcbilFFCO+dcbilinebuf 

fdb linebufilFFCO 

org dcb;*FFCO+dcb:linebuflen 

fcb iinebufsizeiiFFCO 



HAL/6800 1.3F! 
01/14/83 11:39: 
lOVTCONFIG.ASM 

96F1 
96F1 7EBDB8 
96F4 7EBDBB 
96F7 7EBDBE 
96Fft 7EBBC1 
96FD 7EBDC4 
9700 7EBDC7 

964F 
964F 01 

9627 
9627 01 

963ft 
963ft 01 

9724 

0001 

9724 

9724 
9724 9360 
9726 9756 
9720 00000000 

9732 
9732 9627 

9734 
9734 0022 

9756 

0008 

9756 00 
975D 
975D 
975C 

975C BDCA 
9757 

9757 00 
975E 
975E 

975E 4C50543A 

9762 00 
0000 

9763 
OOFD 

9763 00 
9766 

9766 975E 
9768 9Sft2 
976ft BDE2 

9818 
9818 7E9E5A 
981B 0C39 

0001 
9eiD 01 

981E 7E8D2C 
9821 7EeD35 



ttytcb 



tcbiiFFCO 



96A1 SDOSCRiVERS 
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305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 1 

326 

327 

328 

329; 

330 

331 

332 

333 

334 

335; 

336 1 

337 s 

338: 

339: 

340: 

341: 

342: 

343: 

345: 

346: dcb:$FFC4 

347: 

348: 

349: 

350: 

351: 

352: 

353: 

354: 

355: 

356: 

357: 

358: 

359: 

360: 



m SDOS 1/0 drivers for SJavefiate Jupiter II (0 1978 SOFTSJftRE DYNAHICS tit 
VT DCBs 



tcb5tack:*FFC0 



stack :tFFCO 



dcbnaBe:tFFC4 



org 


dcb:tFFCO+dcb:clBarin 


jinp 


sdo5+sdos:vtclearin 


imp 


sdos+sdosrvtclearout. 


jap 


5dos+5dos:vttiputbuf 


jsip 


5dos+5dos:vttlgetbuf 


JBIP 


sdDS+5do5;vtilputbuf 


JiBp 


sdos+sdosivtilgetbuf 


org 


dcb:$FFCO+dcbsprofile 


fcb 


proHlenui.HALVT profile nase 


org 


dcb:tFFCO+dcb:dDneflag 


kb 


1 device not busy 


org 


dcb:$FFCO+dcb:oilquiescent . 


kb 


1 , interrupt not expected 


org 


dcb:tFFC0+dcb:¥t5i2e 


i-fund 


ttvtcb 



■fin ttytcb 

fdb tcb:$FFC4 

fdb tcb5tack:tFFC0 

fdb 0,0,0,0,0,0 

org tcb:$FFC0ttcb:scratchpad4-dcbpoiriter 

fdb dcb:*FFCO 

org tcbi*FFC0Hcb:5ize 

riiib env:«in5tackt2-en¥:5i2e 

rpt env:size 

fcb 

org *-en¥:cc 

org tcb5tack:tFFC0+Bnv:p 

fdb sdos+sdossvtedittask 

org tcbstack:$FFCO+en¥:cc 

fcb $80iiB6809 set 'E' flag for 6809 

org stack: *FFC0+en¥:cc 

fee /LPT:/ 

fcb 

ifund ttydcfa 

fin ttydcb 

rpt dcb:¥t5ize 

fcb 

org dcb!tFFC4+dcb:riasB , 

fdb dcbnaffie:$FFC4 

fdb dcb:$FFC8 

fdb 5dQS+5do5;¥tdi5patch 

org dcb!4FFC4+dcb:rB2et 

jjip reset: $FFC4 

okrts dufflp nothing 

if 186800! i6801 

nop 

fin 

Jap iiputdev:iFFC4 

j-ffip ilQStdsv:$FFC4 



HAL/6800 !.3F: 
01/14/83 ll:39i 
I0VTC0NFI8.ftSH 
9824 7E8EDB 
9827 TESEDB 
9B2ft 7E8D3E 

9804 

0000 

9804 
9804 980C 
9806 0000 
9808 BDD9 
9B0A 9763 

980C 

980C 
980C 9943 
980E 0000 
9810 BDD6 
9812 9763 

9814 
9814 9860 

9816 
9816 9892 

97B0 
97B0 951A 
97B2 0000 

97BC 
97BC 94CA 
97BE 0050 

97C0 
97C0 08 

97CA 
97Cft 951A 

97BD 
97SD 00 

982D 
982D 7EBBB8 
9830 7EBBBB 
9S33 7EB&BE 
9836 7EBDC1 
9839 7EBDC4 
983C 7E8i)C7 

978B 
978B 09 

9763 
9763 01 

9776 
9776 01 

9860 

0000 

9860 
9860 999F 
9862 9892 . 

9864 00000000 

986E 
9S6E 9763 



9824 SDDSDRIVERS 
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361 
362 
363 
364 
365: 
367 



368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 

380: 

381 
382 
383 
384 
385 
386 
387 
388i 
389 

390; 

391 
392: 
393 
394 
395 
396, 
397 
398: 
399 
400 
401 
402 
403 
404 
405 
406: 
407 
408 
409 
411 
412 
413 
414 
415 
416 
417 



Dutputtobik:*FFC4 



inputtoblk:*FFC4 



lcb:$FFC4 



m SDOS I/O drivers for WaveHate Jupiter II (C) 1978 SOFTWARE DYNAHICS ill 
VT BCB5 

jap illdeviceop no extra control calls defined 

jfflp illdeviceop no extra status calls defined 

jap tlcheckready:$FFC4 go check for acia ready 

org dcb:*FFC4-i-dcb:outputtoblk 

ifund ttytimeouts 

■fin ttytiasouts 

fdb inputtoblk!lFFC4 

fdb 

fdb sdos+sdossvtoutputto 

fdb dcb5*FFC4. 

org dcb!tFFC4+dcb!inputtoblk 

fdb outputtoblks*FFC8 

fdb 

fdb sdos+sdossvtinputto 

fdb dcb!»FFC4 

org dcb:$FFC4+dcb:tcb 

fdb tcb:*FFC4 

org dcb!*FFC4+dcbstaskstack 

fdb tcb5tack:*FFC4 

org dcb!$FFC4+dcb!ringinbasB 

fdb inbuf!*FFC4 

fdb inbufsizei*FFC4 

org dcb!$FFC4+dcb!ringoutbase 

fdb outbuf:$FFC4 

fdb oulbuf5ize!$FFC4 

org dcb!$FFC4+dcb;ringDutthre5hold 

fcb outbuf5ize!*FFC4//10 

org dcb:$FFC4^-dcb:linebuf 

fdb linebuf!$FFC4 

org dcb5$FFC4+dcb:linebuflen 

fcb linebuf5ize!JFFC4 

org dcb5$FFC4+dcb!ciearin 

jsp sdos+sdos.'vtclearin 

jap sdos+sdosivtclearout 

jip sdos+sdosivttlputbuf 

jiip sdos+sdosivttlgetbuf 

jisp 'sdos+Sdosivtilputbuf 

jap sdosfsdosivtilffetbuf 

org dcb:tFFC4+dcb:profile 

fcb profilenuffl.HALLF'T profile nate 

org ' dcb!tFFC4+dcbsdDneflag 

fcb 1 device not busy 

org dcb:$FFC4+dcb5oirqiiie5CBnt 

fcb 1 interrupt not expected 

org . dcb:*FFC4+dcb:¥tsize 

ifund ttytcb 

fin ttytcb 

fdb tcb;«FFC8 

fdb, tcb5tack:$FFC4 

fdb . OjOjOjOjOjO 

org tcb I *FFC4+tcb : scratchpad^dcbpoi nter 

fdb dcb!lFFC4 



HfiL/6800 1.3F! 
01/14/83 11:39; 
lOVTCONFIS.fiSM 

9870 
9870 0022 

9892 
, 0008 

9892 00 
9899 
9899 
9893 

9898 BDCA 
9893 

9893 00 
989A 
989A 

989A 48595459 
98A1 00 
0000 

98A2 

OOFD 
98A2 00 

98A5 
98A5 989A 
98A7 8FEB 
9Sfi9 8DE2 

9957 
9957 7E9E69 
995A 0C39 

0001 
995C 01 

995D 7E8S45 
9960 7E8I)4E 
99i3 7E8E1)B 
99ii 7E8EDB 
9969 7E8B57 

9943 

0000 

9943 
'9943 994B 
9945 0000 

9947 mm 

9949 9Bft2 

994B 

994B 
994B 93C0 

96C8 
994D 0000 
994F BSD6 
9951 98A2 

9953 
9953 999F 

9955 
9955 99Ci 

98EF 



986E SDOSDRIVERS 
33; Page 106; Foris 1 



418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430; 
431 
432; 
433 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 

455; 

457 

458; 

459 

460 
461 
462 
463 
464 
465 

466; 

467 
468 
469 

470; 

471 

472; 

473 

474; 



tcbstack:$FFC4 



stack: tFFC4 



dcbna9ie:$FFC8 



dch:3iFFC8 



outputtobIks$FFCB 



ihputtoblkiJFFCB- 
nesttiijeout 



m SDQS I/O drivers for BaveHate Jupiter II (C) 1978 SOFTWARE DYNAMICS m 
VT BCBs 

org tcb!*FFC4+tcb:5ize 

rfflb env:8iifl5tackl2-env:5ize 

rpt env:5i2e 

fcb 

org l-env!cc 

org tcbstack;$FFC4+env:p 

tdb sdQ5+5do5;¥tedittask 

org tcbstack!iFFC4+env:cc 

kb »80t(«6809 set 'E' flag for 6809 

org slack :$FFC4+env:cc 

fee /HYTVPE:/ 

fcb 
ifund ttydcb 

fin ttydcb 



rpt 

fcb 

org 

fdb 

fdb 

fdb 

org 

Jsp 

okrts 

if 

nop 

fin 

jfflp 

jitp 

jflp 

jfltp 

org 

ifund 

fin 

fdb 
fdb 
fdb 
fdb 
org 

fdb 
set 
fdb 
fdb 
fdb 
org 
fdb 
org 
fdb 
org 



dcb:vtsi!S 


dcb:*FFG8+dcb:naiB 

dcbnafflB:iFFC8 

neKtdevicedcb 

sdQS-!-5do5:¥tdi5patch 

dcb:*FFC8+dcb;re5et 

reset !$FFC8 

duip nothing 
i6800! 1)6801 



ilputdev!*FFC8 

ilgelde¥!$FFC8 

illdeviceop no extra control calls defined 

iildeviceop no extra status calls defined 

tlcheckready:JFFC8 go check for acia ready 

dcb!4FFC8+dcb;Qutputtoblk 

ttytiiseouts 

ttytiisouts 

inputtoblk:IFFC8 



sdos+sdQs:vtoutputto 

dcb:$FFC8 

dcb:*FFC8-*-dcb:inputtoblk 

nexttisieout 

ttytinBouts 



sdos+sdosivtinputto 

dcbi$FFC8 

dcb:tFFC8+dcb:tcb 

tcb:$FFC8 

dcbi$FFC8+dcb;taskstack 

tcbstackiJFFCB 

dcb:$FFC8+dcb:ringinha5e 



«AL/6800 1.3F! 


98EF 


SBOSDRiVERS 




m SDQS I/O drivers for HaveHate Jupiter 11 { 


01/14/83 ll!39!33; Page 107; Foris 1 




VT DCBs 




I0VTC0NFI8.ASH 












98EF 95iA 


475 






Hb 


inbuf:»FFC8 


98F1 0050 


476 






fdb 


inbufsize:*FFC8 


98FB 


477. 






org 


deb : *FFC8+dcb : r i'ngoutbase 


98FB 951fl 


478 






fdb 


Dutbuf:$FFC8 


9BFD 0050 


479 






fdb 


outbuf5ize:*FFC8 


98FF 


480 






org 


dcbitFFCS+dcbjringoutthreshold 


98FF 08 


481. 






fch 


outbuf5i2ei*FFC8//l0 


9909 


482 






org 


dcbsUFFCS+dcbjlinebuf 


9909 95BA 


483, 






fdb 


linebuf:$FFC8 


991C 


484 






org 


dcb:$FFC8+dcb:linebufien 


991C 64 


485. 






fcb 


linebuf5ize:*FFC8 


99iC 


486 






org 


dcb!$FFC8+dcb}clearin 


99iG 7EBDB8 


487. 






Jiiip 


5do5+5do5:¥tclearin 


996F 7EBDBB 


488 






jap 


sdos+sdossvtclearput 


9972 7EBM 


489 






jflip 


5do5+5do5:vttlputbuf 


9975 7EBDC1 


490 






jfflp 


sdos+sdosivttlgetbuf 


9978 7EBDC4 


491 






jfflp 


sdo5+5do5!vtilputbuf 


997B 7EBDC7 


492 






jfflp 


sdo5+5do5!¥tilgetbuf 


98CA 


493 






org 


dcb!$FFC8+dcb!profiie 


98CA 01 


494 






fcb 


profilenus.HALVT profile nase . 


98A2 


495 






org 


dcbstFFCS+dcbidoneflag 


9eA2 01 


496 






fcb 


1 device not busy 


98B5 


497 






org 


deb ! $FFC8+dcb ! oi 1 qui escent 


98B5 01 


498 






fcb 


1 interrupt not expected 


999F 


499 






org 


dchslFFCS+dcbivtsize 


0000 


500 






ifund 


ttytcb 




502 






fin 


ttytcb 


999F 


503 


■ tcb!$FFC8 








999F 0000 


504 






fdb 


nexttcb 


99A1 99D1 


505 






fdb 


tcbstackitFFCS 


99A3 QOOOOOOO 


506 






fdb 


0,0,0,0,0,0 


99flD 


507 






org 


tcb: $FFC8+tcb! scratchpad+dcbpoi nter 


99AD 98A2 


508 






fdb 


dcb:4FFC8 


99AF 


509 






org 


tcb;$FFC8Hcb!Size 


99AF 0022 


510 






rib 


envsfflin5tackl2-envi5ize 


99D1 


511 


tcb5tack.'*FFC8 








0008 


512 






rpt 


envssizs 


99D1 00 


513 






fcb 





991)8 


514< 






org 


t-env!cc 


99D8 


515 


' stack :*FFC8 








99B7 


516 






org 


tcbstackilFFCS+envjp 


99D7 BBCfi 


517 






fdb 


sdos+sdosrvtedittask 


991)2 


518 






org 


tcbstacksJFFCB+envscc 


99B2 00 


519 






fcb 


t80J«6809 set 'E' flag for 6809' 


99D9 


520 






org 


stacks«FFC8+env!cc 




521 






fiJi 


iodriverraffl 




522 












523 










9377 


607 


DISOCBS SET 


NEXTBISKDCI 




0008 


608 


! NDRIVES SET 


PISKDCBS 




8FEB 


609 


DEVICEDCBS 


SET 




^ NEHSEVICEBCB 


9&C8 


610 


! TIHEOUTQUEUE 


SET 




IIEUTIHEOUT 


0009 


611 


NTIMEQUTBLOCKS SET 




, NTIMEOUTS 


9724 


612 


TASKSUEUE 


E8L 




, TTYTCB 


SDFB 


613 


PfiOFlLECHAIN 


EQU 




mnwi 



\ ' ■ ■. 

HAL/6800 1.3F: 99D2 SDOBDRIVERS ■ Ut SDOS I/O drivers for WaveMe Jupiter li iZ) 1978 SOFTWARE DYNAHICS »*i 
,01/14/83 ll:39:33j Page lo8; Fom 1 FCBS, lOCBS, INTERRUPT STACK 
lOJUPITER.ftSM \ 
615: I \ 

61i! * FCBS (HliST PRECEDE lOCBS) 
il7: t 
02A4 618! FCBS RPT FCB!SIZEIiHI0CHANNELS+2tNBRIVES+NHAGICFCBS) 
99D9 00 619: FC8 
620: * 

621 ! I IDCBS 
622: I 
01 10 623: lOCBS RPT IDCB:SnEWIQCHANNELS 
9C7D 00 624: FCB 

0008 625s IDCBPOINTERS RPT NIOCHANNELS 

9D8D 9C7D 626; FDB I0CBS+I0CB!SIZEI(t-I0CBP0INTERS)/2 
628: I 
9D9D 629: INTERRUPTSTACK EQU t ; STACK SPACE FDR INTERRUPT ROUTINES 
630: 
9D9D DEFE 631: INTSETUP LBX SYSP6 

9D9F 868F 632: LDAA i!STACKUNSWITCHEDDEyiCEP0LL)/256 = yHERE TO SO ON INTERRUPT 
9BAi C618 633: LBAB #(STACKUNSHITCHED!)EVICEP0LL)\256 
9Bft3 A7FE 634: STAA S¥SIIRQ+1,)( 
9BA5 E7FF 635: STAB SYSIIR8+2,X 
9DA7 0C39 636: OKRTS 
637: 
003A 638: RPT INTERRUPTSTACKSIZE-fMNTERRUPTSTACK) 
9DA9 00 639: FCB 
640: 
9DE3 641: INTERRUPTSTACKEND : end of interruptstack 



M6L/i800 1.3F! 9DE2 SDOSDRIVERS 

01/14/83 il!39!33j Page 109j Fora 1 
IDJUPITER.ASH 

0000 643! lODRIVERRAH 

0001 644! lODRIVERINIT 
19E3 , 645: EQU 
9DE3 646: DSK8UFFERP00L 
0001 647! IF 



m SDOS I/O drivers for BaveHate Jupiter 11 (C) 1978 SOFTWARE DVNAHICS III 
m DRIVER INIT (0NCE-DNLV5 CODE ttt 



0000 
0000 



SET 

SET 

♦-DRIVERBASE 

E5U 

CLOCK 




1 

SIZE OF REfiD-ONLY CODE 

I 



INCLUDE 



lOCLOCK.ASH 



IF 
FIN 
IF 
■FIN 



lODRIVERBOSY 
IDDRIVERBQDY 
lODRIVERRAH 
lODRIVERRAH 



0000 
0000 



BLACKHOLE 



BDLP 



0001 
0000 
0000 

0001 

9DE3 
9DE3 CE0C39 
9BE6 FF9DE3 
9DE9 CEOOOO 

0002 
9DEC FFFFftO 

0002 

9DEF FFFF80 

9DF2 CEFFFF 

0002 
9DF5 FFFFA2 
9DF8 86A5 
9BFA B7FFA2 
9DFS 40 
9DFE BBFFA2 
9E01 40 
9E02 8600 
9E04 46 
9E05 B78FC3 

0002 
9E08 FFFF82 
9E0B B6A5 

9E0D B7FF82 
9E10 40 
9Eli BBFF82 
9E14 40 
9E15 8600 
9E17 46 



VIRTUALFLOPPY 



INCLUDE 
IF 



lOVFD.ASH 



FIN 



IF 



FDRESTORE 




lODRIVERBODY 
FIN lODRIVERBODY 
IF lODRIVERRAH 
lODRIVERRAH 

lODRIVERINIT 

tOKRTS 

FDRESTORE 

10 

PERSCI 

PERSChPIACA 

PERSCI 

DAHFLOPPY 

DARFLOPPYsPIACA 

DAHFLOPPY 

#IFFFF 

PERSCI 

PERSCIiPIADA 

I im 

\ PERSCI sPIADA 
I PERSCIiPIADA 



If 

STK 

LDAA 

STAA 

NE6A 

ABDA 

NESA 

LDAA 

RORA 



do the following once only 



reset the PIA(5) 



see if Persci controller exists 



gives sero IFF Persci e»fsts 
gives carry IFF Persci eisists 
fora Persci Interrupt Test task 
. (A)=*80 --> Persci exists 




PERSCIINTERRUPTHASK 
PERSCI 
DAHFLOPPY 
DAHFLOPPY: PI ADA 

t$A5 
DAHFLOPPY: PI ADA 



see if DAH Floppy controller exist 



DAHFLOPPY: PI ADA gives zero IFF DAH Floppy exists 
gives carry IFF DAH Floppy fsTits 
10 fori DAH Floppy Interrupt Test task 

— ' (A!=$80 --> DAH Floppy exists 



mil mo 1.3F: 9E18 SDOJDRIVERS 
01/14/83 ll!39:33! Pag 
IQVFD.ASM 

9E18 B78FD3 160: 

161j 

9E1B CE2C07 162! 

0002 li3: 

9E1E FFFFAO 164! 

9E2I B6FFft3 , 165: 

ibhi 

0002 167: 

9E24 FFFF80 168! 

9E27 B6FFe3 169: 

170: 

9E2A 0C39 171: 

172: 

0000 173: 

410: 

0000 411: 

434: 

0000 435: 




m SDDS I/Q drivers for iiaveriate Jupiter II (C) 1978 SOFTBARE BVNAillCS Ut 
m DRIVER INIT (ONCE-ONLY) CODE Ut 



DAHFLOPPYINTERRUF'THASK 

DAHFLOPPY 

#7.00101 100000001 11 

PERSCI 

PERSCIiPIACA 

PERSChPIADB clear passible interrupt 

PERSCI 

DAHFLOPPY 

DAHFLOPPY: PI ACA 

DAHFLOPPY!PIADB clear possible interrupt 

DAHFLOPPY 



'IN IQDRIVERINIT 
: lODRIVERBODY 
IQDRiyERBODY , 
lODRIVERPOLL 
IQDRIVERPOLL 
lODRIVERBODY 
IQDRIVERBODY 



0001 
0000 
0000 

0001 

9E2e 
9E2C CE0C39 
9E2F FF9E2C 

9E32 7E8A36 
0001 
9E35 

9E35 C6J4'! 
9E37-86 

9E39 F7FF44 

9E3C B7FF4S 

9E3F 8640 

9E4i B7FF4B 

9E44 86C0 

9E46 B7FF4E 
9E49 0C39 



oooo 



STORABEDEHON 



INCLUDE 



MCiNIT 




IF 

FIN 

IF 

FIN 

IF 

;LDX 

LDX 

SIX 

jJHP 

ilKP 

IF 

;LDD 

LDAB 

LDAA 

;STB 

STAB 

;3TA 

STAA 

jLM 

LDAA 

:STA 

STAA 

llM 

LDAA 

|STA 

STAA 

OKRTS 

FIN 

FIN 

IF 



IDSTOREDEHON.ASH 
lODRIVERBOBY 
lODRIVERBODY 
IQDRIVERPOLL 
lODRIVERPOLL 
lODRIVERINIT 
lOKRTS 
lOKRTS 
WCINIT 
BDCRESET 
liDCRE: 
USEDEKONASCLOCK 





7710 INTELLI8ENT CONTROLLER 

'SO ilE DON'T DO THIS HORE THAN ONCE! 
INITIALIZE 7710 IHTELLISENT CONTROLLER 



H2tl6666)?!$FF 

li2tl6666)/256 

VIATILL 

VIATILL 

VIATiCH 

VIATICH 

t'iO 1000000 

S7.01 000000 

VIAACR 

VIAACR 

#7.11000000 

#7.11000000 . 

VIAIER 

VIAIER , 

USEDEMONASCLOCK 

lODRIVERINIT 

lODRIVERRAH 



ASSUHE 2HHZ CPU 



SET INTERVAL IN LOH LATCH 



LOAD HISH LATCH AND INTO .COUNTER 



SET CONTIHUOUS INTERRUPTS FROH COUNTER 



ENABLE INTERRUPT RE8UEST FROH CLOCK 




11ftL/6B00 1.3F: 9E49 SDOSDRIVERS 
01/14/83 1}!39!335 Page 111; Fors 1 
lOSTOREDEHON.ASH , 

386 

887 

bbU FIN 

462: INCLUDE 

0000 1 
30 

0001 31 
9E4B 32! reset jtFFCO 

9E48 8603 33 
9E4D 87FFC0 34 
9E50 8695 35 
9E52 B7FFC0 36 
9E55 B6FFC1 37 
9E58 0C39 



m SDOS I/O drivers for WaveHate Jupiter II (C) 1978 SOFTWARE DYNAHICS Ut 
m DRIVER INIT iONCE-ONLY) CODE Ut 



0000 

0001 

9E5A 
9E5A 8603 
9E5C B7FFC4 
9E5F 8695 
9E6i B7FFC4 
9E64 B6FFC5 
9E67 0C39 

0000 

0001 

9E69 
9E69 8603 
9E6B B7FFCB 
9E6E 8695 
9E70 B7FFC8 
9E73 B6FFC9 
9E76 0C39 

0000 

0000 

0000 



39 
40 
57 
58 
59 
60: 
61 
62 
63 
64 
65 
66 
67 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
ill 
112 

193; 

194 
521: 
522 
523 



reset:*FFC4 



reset ;$FFC8 



FIN 
END 



if 

fin 

if 

Idaa 

staa 

Idaa 

staa 

Idaa 

Dkrts 

firi 

if 

fin 

if 

Idaa 

staa 

Idaa 

staa 

Idaa 

okrts 

fin 

if 

fin 

if 

Idaa 

staa 

Idaa 

staa 

Idaa 

okrts 

fin 

if 

fin 

if 

fin 

if 

fin 



lODRIVERRAH 
5 UNEXPECTED EOF 



IDVTCQNFIG.ASH 



iodriverbody 
iodriverbody 
iodriverinit 

#20000001 1 

»FFC0 

tXiOOlOlOl 

*FFCO 

JFFCI 

iodriverinit 
iodriverbody 
iodriverbody 
iodriverinit 

17.00000011 
«FFC4 

txiooioioi 

tFFC4 
*FFC5 

iodriverinit 
iodriverbody 
iodriverbody 
iodriverinit 

«X0000001i 

JFFC8 

IXiOOIOlOl 

$FFC8 

$FFC9 

iodriverinit 

iodriverbody 

iodriverbody 

iodriverpoll 

iodriverpDlI 

iodriverram 

iodriverrafi 



reset ACIA 

in int; 8 D + 1 S; no parity: /16 

clear any input interrupt 



reset ACIA 

in intf 8 D + 1 S; no parity; /16 

clear any input interrupt 



reset ACIA 

in int; 8 D +1 S; no parity; /16 

clear any input interrupt 



ilAL/6800 1.3F 
01/14/83 11:3 
lOJUPITER.ASH 
OOOCf 

9E78 0788 

081D 
0000 

2200 
0000 



9E76 SDQSDRiVERS 
9:33; Page 112; Foris 1 



664: 
666: 
667; 
668; 
669; 
670: 
672: 
673: 
674: 



IF 

ELSE 
RtIB 
FIN 
DSKPDOLSIZE 
IF 
FIN 
ESU 
END 



m SDOS I /Q drivers for Wavetlate Jupiter II (C) 1978 SOFTWARE EYNAHiCS tU 
m DRIVER INIT (ONCE-ONLY) CODE tU , 

*>/VTDRiyER 



VTDRIVER-I 

t>/VTDRIVER 

ESU l-DSKBUFFERPOOL 

DESIREDPOQLSIZE»DSKPQOLSIZE 



»-CODE 



SO I CAN SEE Hub 816 THE MORLD IS 



HAL/6800 1.3F! 9E7S SB03DRIVERS 

01/14/83 lh39:33j Page 113; Fora 1 

IQJUPITER.ASfi 

Symbols Sorted by Nase; 



m SDOS I/O drivers for «avei1ate Jupiter 11 (C) 1978 SOFTHARE BVNAHICS m 
Svnbois Sorted bv Naae 



!:/9321 :BPS/0iOO 
:DCB/92B6 sDCBNUHBER/OOOi 
jIBHFORMAT/OOOO 
»ALTERPROFILE:CLIDLES/OOOD 
tALTERPROFILEiCPIDLES/0005 
«ALTERPR0FILE!EE0LLEN/000E 
»ASCIIjftCK/OOOi *ftSCIl!BEL/0007 



! CONTROLLER/9017 !C¥L/004D :DAHFLOPPV/0000 sMTA/OOOO 

iDRIVENUHBER/0002 iFIRST/OOOO :HEAI>CHAIN/9155 



sNEKTCHAIN/OOOl 
tALTERPRQFILE.-CLLEN/OOOB 
IALTERPRQFILEjCPLEN/OOOO 
tALTERPR0FILE:EEOLSE8/OO0F 

ASCIIsBS/OOOB 



:TPC/0001 S8WF0RHAT/0001 
JALTERPR0FILE:CQLDISP/0007 
*ALTERPR0FILE5EE0LI8LES/00i3 
»ALTERPRQFILE;SnE/0014 



tASCIl!DC4/0014 lASCIIiDLE/OOlO *ASCIl5EH/0019 
ASCII:FF/000C lASCIIsFS/OOlC IASCII:8S/001D 

tASCII:NULL/0O0O 

*ASCI I i SPACE/0020 
BADiNTERRUPTC00NT78FE9 

iBUILDt1AP/85CF BUILDHAPi/85D4 

tCC:ALTERPR0FILE/00i9 

ICCiCOLORINe/0020 



iPERSCI/OOOO iSPT/0010 
*ALTERPR0FILE:CLSE8/G009 
«ALTERPROFILE:CPSEe/0001 
IALTERPR0FILE5R0WDISP/OO06 
lASCI I: CAN/0018 IASCiI:CR/000B tASCIlsDCl/OOIl iASCII:BC2/00i2 tASCIl:DC3/00i3 
ASCIIsENB/0005 lASCI I: EOT/0004 ASCIhESC/OOlB IASCniETB/0017 tASClIsETX/0003 
»ASCIl!HT/0009 ASCIIsLF/OOOA IASCIl!HASK/007F ASCIhNAK/OOlS 

iASCII:RS/001E »ASCIl!RUBOUT/007F ■ tASCIhSI/OOOF tASCIhSD/OOOE tASCHsSQH/OOOl 
«ASCII:STX/0002 lASCIhSUB/OOlA iASCIIiSYN/0016 *ASCIIsUS/001F ASCII:VT/OOOB 
JBAS1CFLA6S/0OF0 BCDT0ASC/84FE BLACKHOLE/OOOO tBDOT:PARAHSIZE/0007 

BUILDHAP2/85DB BUILDHAP3/85DD BUILI)!fAP4/85E9 «CC:ACTIVATIONCK/001D 
iCC:BACK6RQUND/002i *CC:CLR!NPUT/0015 *CC:CLR0UTPUT/0016 

CCsDEVICESPECIFICOP/OOlO CC:I)ISH0UNTDISK/0011 tCC:DUHPBl}FFERS/0001 
tCC:ECH0/0010 CC:F0R«AT/00i5 tCC:IBLES/0012 »CC:KILLENABLE/0023 «CC:KiLLPR00F/0022 
»CC!MULTr3ECTDRREAD/0013 tCCiRULTISECT0RHRITE/00i4 tCCsNOECHO/0011 tCCiN0«RAP/001F ICCjPOSITION/OOOO 
»CC:PDSITIOHTDEND/0013 , »CC:SETACTBL0CK/OO14 iCC:SETEKCEPTI0N/0032 (CCjSETFIELBSIZE/OOIB 
JCC:SETFlLEBATE/00i0 ICCiSETFILEPROT/OOU »CC!SETFILESIZE/0012 tCCjSETIIAPALGORITHH/0012 
iCC:SETPARAHS/001C ICCiSETPROFILE/0018 tCCjSETREADTIMEOUT/OOlZ JCC:SETTil1ESHfiRE/003i 
»CC!TA8S/00i3 »CC!UNL0CKBISK/0010 *CC:»AITD0HE/0014 ICCsBRAP/OOlE *CC:«RITEANQHA1T/0030 

tCC:8RITEBN0»AIT/0033 iCC:KRiTEEDITLINE/001A CCB: ABORT /OOOF »CCB:ABDR/0001 CCBsBUSY/OOOO CCB:CyRRENTDCB/002 
CCBsCYL/OOOS CCB;DA!1FL0PPV/9045 CCB: DRIVE/0004 CCBiLASTCYL/0006 CCB:PERSCI/9017 

CCBtREADSECTOR/OOlB CCBsRESET/OOOC CCB: RESTORE/0012 CCBsSEEK/OOlS CGB:SETSEEK/0015 

*CCBjSIZE/002E CCBiSTARTIO/0007 CCB: STATUS/0009 CCBiTIHEOUT/OOOS CCBiTIHEQUTBLK/002 

CCB:BRITESECT0R/001E tCHANSED/OOOO CHECKBISKREABY/8762 CLOCK/OOOi 
CLQCKCLQBE/842F CL0CKDATE/84D7 CLQCKDCB/BFEB CL0CKI)RIVER/B415 

CL0CKGETTD/84B9 CL0CK8ETT!)1/84C0 

CL0CKQPEN/842F CL0CKPFRESTART/842F CL0CKRA1/84A6 
CLOCKREADB/8469 CL0CKRESET/9E35 

CL0CKSTR/8FFB , CL0CKTIHE/850A CLOCKMBl/8451 CL0CKBB2/845F 

tCNFS:DEVICEDCBS/0002 
iCNFS:BSKPQ0LSIZE/0O09 
tCNF6:INTRTI/0019 \ 
|iCNF8:HTPRIt1S/0028 
tCNF6:VTDEBU8/0026 
C0L0RIN8;H19/8E8E 



CCB:VERIFY8ECTQR/002i 

CL0CKBUFFER/SFF4 
tCLQCKFRACTION/SFFA 

CLQCKHAKEKJi/8522 

eL0CKREADA/848B 

CLQCKSTATUS/8434 
ICNFBsATTNCHECK/OOOB 
tCHFGsBRIVERBASE/OOOF 
»CHFS!lNTENABLE/0016 
tCNFB:I0CBP0INTERS/0004 
*CNF6iTA8KBliEUE/0020 
«CMFB:VTSnE/002A 



tCNF8:DEBUBSER/0OOD 
iCNF6!DSKBUFFERP00L/0007 
*CNF6!lNTERRUPTSTACK/001C 
iCNFBsIOIKTPOLL/OOlE 
CNF6.-TIHE0UTLIST/0022 - 
CNFSTABLE/8EB1 COBE/8400 



CL0CK6ETTD2/84CD 

CLDCKRB1/S475 CL0CKRB2/8484 

CL0CKSPRIJN6/8431 , 

CL0CK»RITEB/8448 
ICNF8;BISKDCBS/0000 
tCMFGiirffDISABLE/0013 
«CNF6:INTSETUP/0011 
*CNFG:NIQCHANNELS/0006 
ICflFB:VTPR0FILES/0024 

C0L0RiNB:H19REVERSEyiDE0/8E9A 



CQNRAC/0000 



CONTEXTBLOCKiSiZE/OOO,? 



COPYDCBTBCCB/8845 



CQUNTC0HHANB/881B 



DAHFLOPPY/OD02 



PAHFL0PPY!AB0RT/88FF 

DAHFL0PPYjPIACB/FF81 

DAHFL0PPY!REABSECT0R.1/894F 

DAKFL0PPYiSEEK/891B 

DAHFL0PPY:VERIFYSECT0R/892E 

DAHFL0PP¥;S3TRfiCK/FFS5 

uA11FL0PPY!NTERRliPTMASK/8FD3 

DftY/8FF7 DCBiSFFCO/9627 

ISCBsACTIVATIOH/OOED 

iDCB:CALLERSCB/0026 

tDCB:CLEARSL/0093 

JDCBsCONTROl/OOCl 

tDCB:DISPLSYBEPTH/006A • 

tDCB5EDITFL«SS/O009 

ISCBsEKCEPT/0082 



DAHFLOPPYi ISSUEC0HMA!1D/88F9 
DftHFL0PPY!pIABB/FF83 
DAtlFLOPPY: RESET/8914 
BAHFL0PPYiSTATUS/88E8 

DAHFL0PPY:«BDATA/FF87 
DAMFLOPPY;»RITESECTDR. 1/8973 



DAHFL0PPYiPIACA/FF80 

BAHFL0PPY:REABSECT0R/8938 

BAHFLQPPY:REST0RE/88F2 

CAHFL0PPY:TIfiE0yT/897B 

DAHFL0PPY:raSECT0R/FF8& 

BAHFL0PPYsffiITESECT0R.2/e965 



DARFL0PPY5ABDRT.RTS/89i3 

BAHFL0PPY:PIADA/FFS2 

DARFLOPPY: READSECTOR. 2/8945 

BAHFLQPPY:SETSEEK/8918 

DAHFLQPPYs8BCI1DSTS/FF84 

!)AI1FL0PPYs«RITESECT0R/8952 
IBATE/84D5 DATES/900B DATE«!DAY/900E BATE*:I10NTH/900B BATEJ!VEAR/90il 

BCB:$FFC4/97i3 BCB!*FFC8/98A2 ll5CB!flCTC0L/OO7B JDCB?ACT1)ISP/007C 

IBCB:BACK6R0UNB/0078 BCBsBEEPCQUNT/005E iDCB:CALLERIQCB/008i 
IDCB:CLEAR/0094 *DCB:CLEAR!BLES/0098 DCBsCLEARIN/OOCA IDCBsCLEfiROUT/OOCD 

iDCB:COL/OOiE tDCBsCOLCT/OOOB *DCB5C0LBISP/0092 »SCB;CQL0RIi«8/0076 

tDCB:CTLECOUNT/OOOE |DCB;CTLCKILL/0075 . »DCBsCURSORLQST/006C 
iBCBiDiSPLAYiiIDTH/0069 BCBsBOHEFLAB/OOOO WCB: DRIVER/0007 
IDCB:EE0L/009A tDCB!EE0LIBLES/009E IBCBfEEBL8L/0099 IDCB:E!^DC0L/006B 

IBCBsFIELl)E!«J/0074 IDCBsFIELDBISTtt/OOSB JBCBiIQLECOUNT/OOAO 



ML/6800 1.3F! 9E78 SDOSDRiVERS 

01/14/83 11:39:33; Page 114; fom 1 

lOJUPITER.ASH 

JDCB:IDLETRiG6ER/009F 

tI)CB:IL6ETBIJF/00S9 

tDCBilLROQH/OOSO 

DCBiLINEBUF/OOi? 
iDCB:LINEFLft6S/005F 

DCB:QILDU1ESCENT/0013 
*DCB:P0SSSL/008B 
IDCB:READC0L/006F 
iDCBiRINSlNDftTft/0047 
iDCB:RINGmSTORE/0049 
IDCBiRINfiOUTLEN/OOSB 
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tDCB:IILLFL8S/0012 »BCB:IILSPL/001i «SCB:ILMTA/0062 

tDCB:IL6ETDEV/00BE lDCB:ILPUTBUF/OO0i IDEB:ILPUTDEV/O0BB 
IDCBjILSH/OOOC DCB;INPl]TTDBLK/00A9 JDCBilSBEVICEREADY/OOC? DCBsLftSTERROR/OOOl 
IDCB:LlHEBUFCQUNT/0066 DCB:LIHEBUFLEN/007A tDCB:LINEBUFPTR/OOOF 
SCB;NAHE/0003 IDCB:NEl!lSTATIJS/0079 DCBiNEHDCB/OOOS 



IDCB:DPENC0UNT/0085 
*DCB:PROCESSI1)/0083 
JBCB:READP£RI0D/0089 
tI)CB;RIN5I!«IFETCH/0045 
DCB:RINGDUTBASE/0059 
tDCB:RIN60UTR00H/0057 



IDCBjROMCT/0071 *DC8;R0»BISP/0091 



«)CB:R0«/00iB 

*BCB : TABS/'OODC BCB: TASKSTACK/00B3 

»DCB:TLDATA/0060 

DCB:VTSnE/00FB 
IDCBEDITFLABS: ACTIVATE/0010 
tDCBEDITFLABS:KILLP/OOeO 
JI)CBEXCEPT:SEDIT/O00i 
»DCBIILLFL8S:CTLV/0010 
IDCBIILSPL: FREEZE/0002 
tDCEILStl:CTLC/0002 

DCBNAHE:$FFC4/975E 
IDCBREHINf)ERS:CTLP/0004 
}DCBNELFLASS:ECH0/O02O 
IBCBWELFLASS: RETYPE/0002 
«DEVICEBCBB/8FEB 

DISKDONEl/8758 DISKD0NEJ/87EC 

DISKINTCCB/90i5 

diskintpersci.no/8fcf 

DISKINTSTftRTDAHFLQPPY/36C7 



DCB;TCB/OOBi 
tDCB:TL8ETBUF/00D3 
iDCBiWELFLASS/OOOB 
iDCBEDITFLABBsESC/OOOl 
*DCBEDITFLA6S:PA8E/0008 
tDCBnLLFLBS:CTLB/0020 
*DCBIILLFLSS:ESC/0080 
tDCBHLSPL! INTO/0020 
iDCBILSi}:HCFREE2E/0080 

DCBNAHE:*FFC8/989A 
IDCBREHINDERS:CTLS/0002 
»DCBSELFLA8S:FLDE/000a 

DEBUBINTERRUPT/8410 

DISKAB0RT/876F DISKCQ!1PL/8804 

DISKD0SEJi/87E5 

BISKINTDAHFL0PPY.no/8FDF 
tDISKINTSERVlCE/8FBF 



DCB:OUTPUTTOBLK/0OAi 

DCB: PROFILE/0028 
«DCB:REHINDERS/0O0ft 
»DCB:RING1NLEN/004F 
»DCB:RIN8QUTDATA/0033 
*DCB:RIN60UTST0RE/0055 
*DCB:SCB/0014 DCB:SIZE/0009 

DCB5TLBUFFER/007D 
IDCB:TLPUTBUF/OOD0 
IDCB:HELP0S/0070 
*DeBEDITFLA6S:HCEDIT/0040 
IDCBEDITFLABS5READB/0002 
IDCBIILLFLSSsCTLG/OOOB 
tDCBHLSPL: CDNTINUE/0008 
»DCBIILSPL:PftGE/O0Ol 
*DCSILS8:QUTT0/0004 

DCBPQINTER/OOOi 
«DCBREHINDERS:INTQ/0020 
«DCBHELFLA6S:FLDS/0004 

DEBi)GSYSCALLHANDLER/8407 

DISKC011PLEHENT/B7FB 

DISKERROR/8741 8ISKERRQR1/874D 

BISKINTDCB/9013 

DISKINTSETUP/86B9 

DISKINTUNEXPECTES/a75E 



*DCB:P0SN/008C IDCB!pQSNIDLES/0090 
1lDCB:REASftERR/0072 

DCB: RESET /00B5 DCB!RIN6INBASE/004 
»DC8;RIN6INR00fi/004B 
IDCB5RIN80UTFETCH/0051 

l)CB:RIN60liTTHRESHOLD/005D 
»DC8;STATUS/00C4 
tDCBsTLCLOSEDEV/OOBS 
tDCB:TLR00H/00i4 

DCB:XLftTESTATE/003D 
»DCBEDITFLAeS:INTQ/0020 
IDCBEDITFLA8S: WRAP/0004 
*DCBIILLFLGS:CTLT/0040 
*DCBIILSPL:DISCftRD/0004 
*DCBILSS:ALPHAL0CK/000i 

DCBNftl1E54FFC6/961E: 
tDCBREHINDERS:CTL0/0008 
IDCBREMINDER3: RIP/0010 
*DCBWELFLA6S:PREF/0001 

DESIREDPOOLSIZE/0800 

DISKBCBS/9377 DISKD0NE/B751 
DISKERRQRJ/87C1 

DISKINTERRUPT/86B5 

DISKINTSTART/86CA 

DISKREAD/87D4 DISKREftDi/87Ei 



DISKINTSTARTPERSCI/8&C2 

DISKREAD4/87EF DISKSAVEERRLaN/87C4 DISKSEEKERROR/8735 DISKSETCYLftDD/8774 
DISKSETCYLADD.l/877i DISKTIIiE0UT/897E DISKTIHEQUTI/89A9 DISKTIflEQUTlft/89B6 

DI8KTII1EQUT2/89Ci DISKTIMEOUTERRORED/8994 Di3KaPERR/873B DISKSRITE/8780 DISK«RITE2/879i 

DISKJRITE3/87A3 DISKNRITE4/87A7 ,DISKHRITE5/87B1 , DIV60DIVIDEND/8FF4 

DIVIDE60L/8531 DIVIDE60L2/853A DIVIDE60L3/8549 DIVIDEBYiO/852E DQSEEK/885D 

tDPB!DEFD£PTH/0005 JSPB:BEFWIDTH/0004 IDPBsDVTYP/OOpl IDPB:FlAGS/0006 DPB:6PINIT/00i5 
JDP8:NEn/0002 *BPB:OUTTO/0007 IDPB;PRQFILE/000O iDPB:SETBACKGR0UND/00i2 *DPB:3ETCDL0RIN8/O0OF 

DPB:SnE/OOiD IDPB:TLPUTBEV/OOOC *DPB:XLATEI/0009 IDPBFLA8S:AUTQNL/0008 



tDPBFLASSiHCEBIT/OOIO 

IDRIVER: CLOSE/0002 

IDRIVER:DISKC0NTR0L/000A 

*DRIVER:DISKHAIT/0006 

iDRIVERiREABA/0004 

»DRiyERiSTARTI0/0018 
BRIVERBASE/8400 
DSKINFQsERRLSN/003F 

IDSKINF0:«APLSN/0024 
DSKINFO:NBP3/0009 

tDSKINFOsNLSN/OOlB 
DSKINF0:0PSCDl}NT/003C 
DSKINF0:SECT0RBB/002B 
DSKINF0:aRITEERRCNT/0034 
DVDAT:RBP3/0000 

IDVDAT:HTPC/0004 

tBVTYP. BISK/0001 



tDPBFLAGS:MAL/0001 

*DRIVER:CQNTR0L/O012 

*DRiyER:DISKR£AD/0002 

IDRI¥ER:DiSKHRITE/0004 

»DRIVER:READB/0008 

»DRIVER:STATU3/0014 

DSkBUFFEftP00L/9DE3 
IDSKINF0:LD82NBPS/0018 
«D3KINF0:HII}ALLOC/0014 
tDSKINF0:NBPSHi/00i9 

DSKINF0:NSPC/0011 
tDSKINFO:RAND«fiP/0022 

DSKINF0:SEEKERRCNT/0030 

DSKINFQ:«RITEERRSTS/0036 
tDVDAT:NC¥L/0006 
IDyDATsSIIBTH/OOOO 
IDVTYP.DTAPE/0003 



«DPBFLA6S: OUTPUT/0002 
IDRIVER:CREATE/OOOC 
IDRIVES:DI3KRE3ET/0000 
*DRIVER:OPEN/0000 

«DRIVER:RENAHE/OOOE 

iDRIVER:l^RnEA/0004 

tDSKIKF0iBADLSN/002D 
DSKINF0:HAPALG0RITHH/0O16 

iDSKiNFQ:HINALL0C/0012 

IDSKINFOiNCYL/OOOF 
DSKlNFQiNSPT/OOOB 
DSKINFQ5READERRCNT/0038 
!)SKINF0:SEEKERRSTS/0032 
DSKPOOLSIZE/OOiD 

tBVDAT:N8PC/0002 
DVTYP.CLOCK/OOOB 



IDPBFLA6S: WRAP/0004 
*DRIVER:DELETE/0010 
JDRIVER:DISKSTATUS/0008 

DRIVER:PFRESTART/001A 
IBRIVER:RESET/001i 
iDRIVER;BRITEB/O0OA 
IDSKINF05DIRFCB/0027 
IDSKINFO:MAPFCB/0029 
tBSKINFQ:NBPC/0020 
tDSKINFOsNLCN/OOlE 
tDSKINFOsNTPC/OOOD 

BSKINF0:READERRSTS/003A 

DSKINFD: SIZE/0042 
tDVDAT: DEPTH/0001 
*DyDAT:NSPT/0002 

DVTYP.CONS0LE/0e04 
IDVTYP. FILE/0000 



HftL/6800 1.3F: 9E78 SDQSDRIVERS 

01/14/83 li!39!33; Page 115;. Form 

lOJUPITER.AStI 

lDVTYP.PARIN/0009 

IDVTYP.SERIALOUT/0006 

lENV! A/0003 JENViB/0002 

iERR:ABN0RMALSTQP/0068 

tERRiATTENTION/OOOi 

tERR!BftDFNAHESIZE/03F5 

tERRiBRANCHFACTORSIZE/0435 

tERR:CHBUSY/0407 



1 
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JDVTYP.PAROUT/0008 DVTYP. PRINTER/0005 

*DVTYP.STAPE/0002 DVTYP: TYPE/0000 

ENVsCC/0001 ENV:!1INSTACK/0015 ENV!p/0006 

tERRiACTIVATIQHNOTlNBUFFER/0773 }ERR:ACTIVATIONRECEIVE!)/0775 
*ERRiBADC!1DFQRt1AT/0066 *ERR!BADFILENAI1E/03FF 
IERR:BADLQADREC0RD/040C »ERRsBADP0SlTI0N/03EC 
IERRiBUSYFQRANOTHERPROCESS/0772 JERRiCANTSOTQ/OOi? 
iERR:CHTQ0BI6/0406 IERR:CLDSEI)/0408 



»DVTYP.SERIALIN/0007 
EDITDftTE/i231 EDlTYEAR/1982 
ENVsSIZE/OOOS JENV:X/0004 
*ERR!ALL0C0CLUSTERS/042B 
tERRsBADFILEVERSION/0405 
*ERR:BO0TCKBUHFAIL/03E8 
tERR ! CANTOPENHUSTCREATE/ 03FD 
*ERR;CLUSTERSIZELIi1ITSFILE/04lC 



IERRjDECRYPTIONKEYSDONTIIATCH/0437 



tERR:DEVICEERR0REB/O421 



ERRiDEVICENOTREADY/0424 



ERRiDEVICETIHEDOUT/0412 

ERR!BISKSEEK/0417 
IERRiDUPLICATEKEY/0434 
tERR!FILEALREADYD£LETED/042C 
tERR!FILE»RTPR0T/03F2 
IERRJILLEGALLCN/03F4 
tERR!lNPUTTII1E0UT/042E 
}ERR!NBPCTQ0BI6/03ED 
*ERR!N0DEFftULTPR0eRAH/03F0 
»ERR:NQFREEFCBS/03F9 
tERR:N0SliCHLUN/0426 
IERR!WT£H0U6HR0DH/040B 
iERRjOLBFILEEXIST8/0429 
»ERR!PR06RAKKILLED/041i 
*ERR:SDQSCKSUH/04iA 
iERR:SECTQRSIZE2/0413 
IERS:SYSCALLTD0SHQRT/041D 
IERRiMARNINSCOMPILE/0065 
tERR:ZER0STARTABi)RESS/0427 



tERRjCIRECT0RYDAHASED/040F 

ERR!DISK)ilRnE/041& 
»ERR!ENBQF«EDIUH/042F 
iERR:FILEINeREATE/03FB 
IERR:HCSICTOOSHALL/0401 
IERR:ILLEGALSYSCALL/0409 
JERR:I0iNPR06RESS/O771 
iERR:NE8FILEE)(ISTS/03F6 
IERR.'N0DISKHAP/03EE 
»ERR!N0HATCHFDB/03EF 
tERR:NDSUCHPRD8RAM/042e 
»ERR:N0T£NUFMEH/0069 
IERRjPRIHTERNQTREABY/0421) 
*ERR:PMRFAILBISKF/0403 
IERR:SD0SHTALREADYRyNNINB/04CE 
*ERR:SELFTESTCKSUH/0430 
IERRjSYSTEtlCROAKEB/0414 
JERRsKRBUFT00SHftLL/041F 

ERRET)(/8EE0 ERR0RRTS/0D39 
tFCBsBISKINFO/OOOO 



*ERR!DISKH0UNTED/03FC 

»ERR!DISKWRITELQCKED/0419 

tERR!E0F.Hn/03E9 

IERR:FILEIS0PEK/03EA 

»ERR:IBUF0VERFL0H/0410 

»ERR:ILLFILESIZE/0400 

«ERR:LCN»ASNTALL0CATEB/03F8 

IERR:NLSNBE224/041B 

JERRSN0BISKBPACE/03F7 



ERR:DISKREAD/0415 
ERR:DSKWRTPR0T/0418 
*ERR!FATALCOfiPILE/0064 
*ERR!FIL£M0TFDUND/03F3 
ERR:ILLBEVICE0P/040A 
JERR:ILLLSN/040E 
IERR:MUSTBEDISl!:/0422 
tERR;N0DEBUG8ER/O3EB 
iERR;NQERR0RHSG8/03FE 



lERRi NQNE/OOOO tERR: NQSUCHBEVICE/0420 



iERR: 



iFCB:DIRLSN/0002 

*FCB!HLCN/OOOC tFCB:HLSN/0007 IFEBsHONTH/0017 IFCBsSCLUSTERS/OOOF 
FCB:SIZE/001A *FCB;VERSI0N/0019 IFCEsYEAR/OOlB »FCBS/99D9 



iERR:N0TALOADFILE/O404 
JERRiNOTIMEOUTBLKS/0431 
IERRjPROFILENOTFQUND/0777 
*ERR:R1BUFT00SRALL/041E 
iERR:SD0SHTPRIRSHISSING/04D0 
«ERR:SERIALN0WR0!*S/0432 
IERR:TIHEBINPUTEXPIRED/0776 
iERR!8RONBDISKTYPE/07&E 
EXORCISQR/OOOO iFCB!DAY/0016 
IFCB:FILESIZE/0011 

tFCB:PRQT/00i5 
FDCCB/0051 



FDC0NTR0L/855D FDCYL/0049 

FDFIRSTSEC/004C 

FDK2110i5NSPT/0056 

FDi1AP/005B FDMAPAL8/0053 

FDREST0RE/9DE3 FDRETRY/0047 

FSSETUPDRIVE/85AF 

FDSftIT2/859F Fi}«AITI)0NE/858F 

S0T0UTPUTi*FFC0/8F24 
ilC: DESTROY/0001 

ILBETDEV!$FFC0/8D1C 

iLSETDEVSTfiTUSFRQHAClA/8EA2 

ILPUTDEV:$FFC8/8D45 

IMUF;tFFC8/95iA 
IINICV/FC03 ' *INIDV/FC12 

iNTBISABLE/8EC4 

INTERRUPTSTACKSIZE/0046 
II0CB:BYTEC0UNT/0016 
II0CB5CURLSN/O0O2 
IIOCB:EOFFLAG/OOOB 
JIQCBiNEXTBYTE/0014 

lOBRIVERBODY/OOOO 

IOPKDEFS/0001 IJUPITERII/OOOl 

LINEBUF!*FFC4/951A 

LIOUFSIZEilFFCe/OOM 



FDDISHOUNT/8564 

FDHEADCHAIN/004S 

tFDK32M0DNSPT/0056 

FDNEXTCHAIhi/004F 



FDDRIVE/0048 FBBRIVER/BSSl 
FDKliHQBNSPT/0059 
FDK4H0DNSPT/0057 
FDREAD/356D FDREAD.1/856E 



JERR:NOTENOU6HPQ0L/04O2 

IERR :»0T0PENT!3C0HS0LE/ 0423 

JERR:PR8FILENQTHALLEABLE/0778 

«ERR!RENA!1EDEVICE/040B 

IERR!SDQSN0TRE8ISTERED/043i 

iERR!STATUSHASCHANB£D/04CF 

JERR!TIHE(iOTSET/0425 

tERR:lilR0r«FILESYSTEI1/03FA 

IFCB:DIRDISP/0005 

tFCB:FLA6S/000A SFCB:HCSIC/OOOE 

IFCB:REFCOliNT/0OOB 

FDCOKPLEHENT/004B 

FDDSTATE/0044 FDDSTftTEJ/0043 

FDKlilODNSPT/0055 

FDK8MODNSPT/0058 

FBREADBRlTE/0042 



FDSECT0R/004A FDSEEKRETRY/0046 
FDSIZE/005B FDSTARTI0/857A FDSTATUS/B5ii 



FDSETUP1/85CB FDSETIJP2/860D FDSETUP4/86B1 
FDTIilEOUTBLOCK/9069 FB»AIT1/S5¥8 



IFlLESYSTEtlVERSIDN/OOlO 
G0TduTPUT:SFFC8/8F7E ' 

JIC:RESET/0002 
ILGETDEV!*FFC8/8D4E 
ILPUTDEV:*FFC0/8D13 
11117711/0000 INBUF:*FFC0/9414 
INBUFSIZE:$FFC4/0000 
INPUTT0BLK:SFFC4/980C 



t8ETCV/FE09 
IBHF0R«AT/0001 
UCs TEST/0005 



FDHRITE/8569 

e0T0UTPUT!*FFC4/8F51 
iICilQCK/0003 «IC:REIEASE/0004 

IL8ETBEV:$FFC4/8D35 

ILLDEVICE0P/8EDB 

IHi5007/0000 IIMI77iOS/0001 

imUFSIZEilFFCO/0050 

IMPUTTOBLKslFFCO/96D0 

tINTENABLE/8EC7 INTERRUPTSTACK/9D9S INTERRUPTSTACKEND/9DE3 
IINTERRUPTTAR8ET/BE15 JINTRTI/8EEA INTSETUP/9B9S «0CB:BllFFERP/0005 
tlOCBsCOLCNT/OOOC tIQCB:CURBYTE/000D JIQCB:CURLCN/0018 



*IG:CREATE/0000 
II8NDRED/0000 

ILSETDEVICESTATUBFROMACIAERROR/BEA 

ILPUTDEV!$FFC4/8S2C 

1NBUF:SFFC4/95IA 

INBllFSIIE:IFFfiS/0050 

IHIPUTT0BLK:IFFC8/994B 



»IQCB;DCB/0000 IIOCBiBRSSI/0012 
»QCB:FCB/0007 II0CB:HRDSI/00iF 
tlQCBsRBN/OOlD tlOOBsRDCN/OOlB 

IODRIVERINIT/0001 

Ji^DCCHDFEEB/eCA3 

LINEBUF;$FFC8/95BA 



ilOCB: DRIVER/0009 ilQCBsDRSN/OOlA 

iI0CB:HRSN/0021 lIOCBiLQCATEDF/OOll 
IOCBj SIZE/0022 iQEBP0INTERS/9B8D I0CBS/9C7D 

lOBRIVERPOLL/OOOO lODRIVERRAH/OOOO 

K/04.00 LCNiSIZe/0002 LINEBUF;$FFC0/9466 
LINEBUFSIZE.-IFFCO/OOM LINEBUFSnE!*FFC4/0000 



!LI«EFLAGS/00F0 ILIST. VIRTUALFLOPPY/0001 



ILISTCLOCK/OOOl LISTBEFS/OOOO 



MftL/6800 1.3F! 9E78 SCQSDRIVERS 
01/14/83 il!39:33; Page Hi; Fora 
IDOUPlTER.ftSH 
iLISTSTORASEBEtlON/OOOl 

MAPi/8692 «AP2/8fi97 

HQDULQNSPTB/85ftl 

NEXTDPB/SDFB SEHTCB/OOOO 

NDINT:*FFC0/8F45 

N0TDCDDR0P:*FFC4/8Fi5 

N0TINPUT!*FFC8/8F99 

NTIHEOUTBLDCKS/0009 

0UTBUF!$FFC8/951A 
*QUTPUTTQBLK:$FFC0/96C8 



1 



m SDOS I/O drivers for MaveMe Jupiter 11(C) 1978 SOFTHARE DYNAHICS Hi 
Symbols Sorted by Naiae 



LSN!SI2E/0003 116800/OOOi 

HAP3/869C «AP4/B6A1 

H0NTH/8FF8 NDISKBCBS/0008 

NEnTiHE0l!T/9iC8 

N0I«T!*FFC4/8F72 

K0TDCDDRQP!JFFC8/8F92 

N0T0UTPUT:*FFC0/8F2C 

NTII1E0UTS/0009 0KRTS/0C39 

OUTBUFSI2E!tFFC0/OO50 

0UTPUTT0BLKj«FFC4/9804 



R&801/0000 Hi809/0000 HAKEDISKREADY/876ft 
HAP5/86Ai HEHSIZE/003C HINSTACK/OOiS «0DULQNSPT/85Aa 
NDRIVES/0008 NEXTDEVICEDCB/8FEB NEXTDISKi)C8/9377 
NIOCHANNELB/0008 NMA8ICFCBS/0002 

N0lkT:$FFC8/8F9F N0TDCDDRQP:*FFC0/8F38 

N0TINPUT!*FFC0/8F3F NOT INPUT; $FFC4/8F6C 
N0T0IJTPyT!*FFC4/8F59 N0T0UTPUT5*FFC8/8F86 
OUTASPACE/0001 0UTByF:$FFC0/93C6 uUTBUF!$FFC4/94CA 

0UTBUFSIZE:tFFC4/0050 OUTBUFSIZE!*FFC8/0050 
QUTPUTTOBLK: tFFC8/9943 *PATDHSPACE/8EE6 



PERSCI/0002 PERSCI:AB0RT/887B 



PERSCI: ABORT. RTS/8890 



PERSCl!lSSUEC011HAND/8875 



PERSCIiPIACA/FFAO 



PERSCIiPIACB/FFAl 

PERSCI iREABSECTOR.i/SeCC 

PERSCI ! SEEK/8897 

PERSCISVERIFYSECT0R/88AC 

PERSCI i^DTRACK/FFAS 
JPR0FILE.ADM3/OOO1 
iPRQFILE.HALLPT/0001 
iPR0FILECHAIN/8DFB 

PROFILENUH.HALLPT/0009 
JPR0T::»RITE/0040 
JRSSI:DISKINF0/000O 

RDSI5SECTQRBASE/0005 
tRDSISTATEjREADING/OOOi 
IREBiA/0003 IRES:B/0002 

RESET: $FFC8/9E69 
ISCiALLSTATUS/0033 



PERSCl!PIADA/FFA2 

PERSCI :REA1)SECT0R.2/88C1 

PERSCI!3ETSEEk:/8895 

PERSCI :mCHDSTS/FFA4 

PERSCI :HRiTESECT0R/8aCF 
JPRQFILE.EPSONLPT/OOOl 
tPRQFILE.HALVT/OOOI 

PR0FILENUI1.AI)!13/0003 

PROFILENUH.HALVT/0001 
*PUTCV/FCOfi IPUTDV/FC15 
IRI)SI:FL1NK/OO07 
tRDSI:SlZE/0013 IRBShSTATE/OOOC 



PERSCI ! PI ADB/FFA3 

PERSCI s RESET/8891 

PERSCI: STATUS/8864 

PERSCI:ai)DATft/FFA7 ■ 

PERSCl!»RITESECT0R.i/8eES 
tPR0FILE.6TlOO/0001 
*PR0FILE.RS232LPT/0001 

PROFILENUH.H19/0005 

PR0FILENUH.RS232LPT/000B 
tRBShBUNK/0009 

R1)SI:LSN/0002 IRDSI:!10DIFIED/000B 
*RI)SI:TRACK/OOOF 



PERSCIjREADSECT0R/3SB3 

PERSCI:REST0RE/886C 

PERSCI: TIMEOUT/8976 

PERSCI :MDSECT0R/FFA6 

PERSCIINTERRUPTHA3K/8FC3 
tPR0FILE.H19/O001 
iPR0FILE.S0R0ClQ120/O001 

PRDFILENUI1.HARBCQPYVT/0006 
JPR0T::BACH:UP/0001 

RDSI:CYUN!)£R/001i 

RDSI:SECT0R/000D 
JRDSI3TATE:iDLE/000 



»RDSISTATE!VERIFYINe/0003 iRDSISTATE:SRITINBy0002 »REALTIHECL0CK/i)001 
«RE8:CC/0001 JREB: PC/0006 $RE6:)(/0004 RESET: tFFC0/9E4B RESET; $FFC4/9E5A 

RTI:tFFC0/8F37 RTI:*FFC4/8F64 RTI:*FFC8/8F91 tRTSf$FFC0/8i}lB iRTS:*FFC4/8D34 IRT8:IFFC8/8B4D 



iSC:ATTENTI0NCK/0030 SC:BEVICESPECIFlCOP/OOiO 
tSCiSETCOL/OOOl *SC:8ETl)ATAC0UNT/0036 JSC:eETE0F/0002 ISC:BETERR0RSTATS/0011 
ISC:eETFILEPRDT/OOii ISC:8ETFILESIZE/0003 iSC:GETFREECOyNT/0035 
tSC:8ETLINEFLABS/002C ISC:8ETLINEFLABSHIMT/0034 ISC:GETPARAHS/0005 
iSC!8ETTIHESHARE/0032 SCi8ETTYPE/0004 «SC:STATUSCK/0031 



ISCsGETACTCOL/OOli 
ISC:8ETFILEDATE/00i0 
ISCiSETLASTBABLSN/OOlO 
»SC;8£TP0S/0000 »SC:GETPRQFILE/0010 
iBCBLK:BATA/OOOE 



8CBLK:END/00OE tSCBLK:OPCQDE/0000 



SSCBLK:PARftHS/0002 



SCBLKsRBBUF/OOOA 



tSCBLK:RDLEN/000[ 



SCBLK:RPLEN/0008 

SDLP/0000 SD03/BE00 

SD0S:CHECKaRLEN/O039 
iSBOSiCURRENTASK/OOlE 

SD0S:ERR0RSAVE/0030 

SDQS:I0INT/0012 
IS80SsHQNTM/000F 
iSDOSiSTACKSiJITCHED/OOll . 

SDDSiVTATTNCHECK/FFBS 

SDOS:VTEBiTTASK/FFCA 

SDDS:VTINPUTTQ/FFB6 

SDOS:VTQUTPUTINT/FFBF 
,JSD0SsSiAITC0NC/0O2? 
tSECTORBBiABBRESS/OOOS 

SEEK/S6E5 SEEK3/S7iO 

SPECIAlFN:CLEAR/0082 
'SPECIAL0UTPUT:ABH3/SDCF 

SPECIAL0UTPUT:H19CLEAR/8E7A 

STACK: *FFC4/9899 

STORA8EDEHON/0001 

SYSIIRQ/OOFD SYSP8/00FE 
iTCB:C0ND/0004 ITCB:LKK/0000 

TCB3TACK:$FFC4/9a92 



ISCBLK:BLEN/0001 SCBLK:»RBUF/0004 ISCILK:«RLEN/0006 

*SDQS:BL0CH:MQVE/Oi)42 SD0S:CHECKRDLEN/0036 ISD0S:CHECK.SCLEN/003C 
SD0S:CLQCK/000B S1)QS:CLOCKTICKED/001B tSDOS:CGNFIGURftTIOM/0003 

ISDOS:DAY/ftOOE tSDDS:ENTRySIZE/0045 SD0S:ERR0R/002i) Si)0S:IRR0REB/0033 



SBOS!EnENSION8IZE/0048 
»SD08;KiLLPR00F/0020 
■ SS0S:RESCHEI!liLE/0018 

SBOS: START 10/5024 

SDOSsVTCLEARIN/FFBS 

SDOSiVTILSETBUF/FFC? 
tSDaS:VTINTBCB/FFFE 

SD0S:VTQUTPIiTTa/FFD9 

SB0S:WAITEyENT/002A 
tSECTQRDi:CI3KI»FO/0000 

SEEK3. 1/8718 SEEKD0NE/86FE 

SPECIALFN:EE0l/00B3 

SPECIAL01JTPUT!ADI13CL£AR/8DF5 

SPECIftL0yTPUT:H19EE0L/8E84 

STACK: *FFC8/99D8 

SfORA6EDEHQNVIA/FF40 

SYSTEHBEFS/OOOO 
ITCBsPARAH/0006 TCB: SCRATCHPAD/ 0008 

TCBSTACK: *FFC8/99Bi ITEMP/0000 



SDOS: IOBLOCKPTR/0007 tSDDS: IOCBPOINTER/0009 
tSD0S:KILLUSERPR06RAM/0021 *SB0SiLASTERRQR/0001 
SD0S:RTI/0015 *SD0S:SERIALNUH8ER/0005 



tSD0S:TABLEBRAKCH/003F 

SBOS:VTCLEARQUT/FFBB 

SB0S:VTILPUTBUF/FFC4 

SBOSiVTHALLPT/FFCD 

8D0S:VTTL8ETBUF/FFC1 
tSBOSiYEAR/OOiO 3BOS«T/0000 
ISECTOR&B:LSN/Oe02 ■ 

SEEKDONEO /87ft0 SEEKH0!1£/872e 
ISPECIALFNiNE»LINE/0080 

SPECIAL0l!TPUT:ABH3P0SN/8DD9 

SPECIALQUTPUT:H19P0SN/BE5E 

STACKSMITCHEDBEVICEP0LU8FA2 
tSySCALL$/OOFB SySCALLIO/8400 

TASKQUEUE/9724 TCB:«FFC0/9724 
TCB:SIZE/00I0 
iTEMPA/0000 



tSDOS:VERSlONNUHBER/0000 

SD0S:TO!SPATCH/FFE2 

SB0S:yTINPUTINT/FF2C 

SD0SiVT(1AL¥T/FFD0 

SDQS:VTTLPUTBUF/FFBE 
ISI'OSVERSION/OOil 
ISECTORBB: SIZE/0007 

SEEKH0HEJ/87BE 

SPECIALFN:PQSK/0081 

SPECIAL0UTPUT:Hi9/8E50 

STACK: *FFC0/975D 

STftCKUNS^ITCHEDBEvICEP0LL/8F18 

SYSDEPENDEST/OOFO 

TCB:IFFC4/9B60 TCB:$FFCa/999F 
tTCB:STACK/0002 TCBSTACK: IFFCO/975 
ITEHPB/0001 TEHPSi/OOOO 



HftL/6800 i.3F! 9E78 SDOSDRIVERS 

01/14/83 ll!3?!335 Page 117; Forsi 1 

lOJUPITER.ASM 

iTESTCV/FCOC TESTFQRSEEK/8831 
TIHE»sfiINUTES/9005 

tTIHEOUT:LINK/0000 
TLCHECKREADY!tFFC0/8D25 
TT¥l)CB/%27 TTYTCB/9724 
VIAACR/FF4B VIADDRA/FF43 
VIAPCR/FF4C VIAT1CH/FF45 
tVT!lHTERRUPTP0LLCHAIN/8F18 
«DCiO/932E HDClSTR/9372 
KDCCQNTINlJEPC/9328 
MI}CDRIVE/0043 8DCDRIVER/89C4 
»DCF0RHATX/89DB 
WDCIfiBATftl/8C15 
iiDCINTUNEXPECTE!)/8C66 
WDCOUTBATA/SBEO 

M!)CPQLLffiXT/8FBF 



m SBOS I/O drivers lor fevsHate Jupiter II 
Synbols Sorted by Naae 



(C) 1978 SOFTWARE DYNAMICS «* 



THIS&PB/8BFB 

TIHE*!SEC0NBS/9008 
tTI«E0UT!R0yTINE/0004 

TLCHECKREABY:tFFC4/8D3E 

TTYTIHEQUTS/96C8 

VIAI)DRB/FF42 VIABRft/FF41 
tVIATiLH/FF47 VIAT1LL/FF44 



TICKSPERSEC0NB/003C 
»TIMEaUT:BCB/0006 
TI«EDUTiSIZE/0008 
TLCHECKREftDY!*FFC8/8D57 
USECQNS0LEACIAA8CL0CK/0000 
VIADRAF/FF4F VIABRB/FF40 

VIR7UALFL0PPY/0001 



TliiE$/9002 TIME$:H0URS/9002 

TIttEQUT:FUSE/0002 
't1HE01)TQUEUE/96C8 
»TTYBUFFERS/93CA 
USEDEHDNASCLOCK/OOOi 
viAIER/FF4E ' VIAIFR/FF4D 



VIAT1LLA/FF46 

VTDRIVER/A600 «AITF0RmERRUPT/8828 «AVEHATE/OOOi ^™ED1/8A8o"''''''''''' 

«DCCHDFEEB/8A5C BBCCfiDFEED0/8AiA tSDCCHDFEEDl/8A80 



MDCC0NTRCt./89D0 8BCC0UST/932A «DCDCBPQINTER/9326 

«DCFATAL/0080 WDCFATAL0/8C8E SDCFATAL2/8C94 «»t:FATALERR/8C92 
WBCF0RHSERV/8B3B «DCFQRfiS£RVJ/8A56 HDCINDATA/8CU7 

»DCINIT/9E2C WDCINTERFACE/9325 HBCINTERRUPT/8C69 



SDCNBPS/0200 »BCNCYL/0001 
ffiCQUTDATAi/8BF4 



SBCPQIL1/8FB3 
WDCQUIT/8ED4 
WDCREAB2/8B7E 
•«DCREADB/8BCB 



i^DC0KRTS/8A20 

SDCP0INTER/932B 

8BCQUIETi/8B31 

SBCREAB0/8B&5 

mREADCHB/0002 



WDCD0NE/8B44 

»DCF0Rt1AT/000i 

ffiCIfiDATA0/8C'SB 

8I)C8PSET/89EB 



WCSUITREAB/8CE4 

HDCSAVEBRITESTATUS1/8CCC 

TOCSTARTI0/8A5C 

mCTIt1E0yTC0UMT/93C2 



aDCSUIETERR/8B2F 
MDCREABl/8B7i 



liDCNSPT/4E34 WDCSTPC/OOOi 

«DC0UTBATAL/8BE9 
WDCPRDCST/SC84 WBCPROCSTOKRTS/BCSD 
WDC3UITaiTHERR/8CE8 iiDCREA&/89E9 

«DCREAB5/8BA1 8DCREAI)a/8BAD «DCREAD7/aBB9^^^^ «DCREAB»AIT/8B1)3 

NDCRESE7LP/8A44 
aBCSAVE8TATUS/8CA& 

impTTHcnmiT/isrc'} WDCTIHEBDUT1/8CF2 ffiCTIHEOUlBLOWJViLU 



WBCliAITAWILABLE/8ClE 
HBCMRITE/89E5 ii!SCWRITE0/8AB6 



8CC8AITAVAILAELEL0QP/8C21 
WCBRITE1/8AC2 «DraRITE2/8ACE 



8DCBRITE7/8B0A WBCWITECHD/0003 KDMRiTEB/8BlA 

«BraRITEWAlT/8B24 »DCWRITEMAIT1ST/8A9B 

l^HDAMFLOPPY/0000 MMFQRHAT/OSOi »HPERSCI/OooO 

XLATEl!Ai)M3.B/8BCC llLAiEI:ABn3.D0NE/8DCB 

XLATEI.-H19.ESCAPE/8E20 XLATEI:H19.flK/8ElE 



8CC8AITDDffi/8A22 
W!)CWRITE3/8ADA SDCWRITE4/8AE6 
WDCWRITEL00P/8AAA 
l9BC«RITEMAITEXn/8B39 
8I1SERIES2000/0000 
XLATEhHi9/BEll 
rXLAlEl!Hi932/8E4C 



«DC»AITRTS/8CiD 
8I)CaRITE5/8AF2 WDCSfiRITEfe/BAFE 
IKBCWITESERV/8A95 
aBC«RITEIiAnL00P/8B26 
XLATEIiABH3/8DC0 
XLATEI:H19.B/eEiD 
YEAR/8FF9 



HAL/iSOO 1.3F! 9E78 SDOSDRIVERS , «tt SBQS I/O drivers for WaveMate Jupiter II (C) 1?78 SOFTWARE DYNAMICS t»t 
01/14/83 11:39:335 Page 118; Form 1 Syubals Sorted by Value 

IDJUPITER.ftSH 

SyfDbols Sorted by Value: 

:DAHFLOPPY/0000 : DATA/0000 :FIRBT/0000 : IBHFORHAT/0000 :PERSCI/0000 

JALTERPROFILE:CPLEN/0000 iASCII:NULL/0000 BLACKHOLE/0000 *CC:POSITION/0000 CCB:BUSY/0000 

ICHAN8E8/0000 «CNFS:DISKDCBS/000O COMRAC/0000 KB:BONEFLAG/0000 tDPBiPRQFlLE/0000 

IDRIVERiDISKRESET/DOOO tDRIVER:OPEN/0000 DVBAT:NBPS/O000 tDVBATtWIDTH/OOOO 

tOVTYP.FILE/0000 DVTYP:TYPE/0000 tERR:NQNE/00OO EXORCIBQR/OOOO tFCB:DlSKINFO/0000 

UCsCREATE/OOOO IISNORED/0000 IHI5007/0000 1HI7711/0000 INBUFSIZE;$FFC4/0000 «IOCB:BCB/0000 IODRIVERBODY/0000 

IDDRIVERPOLL/0000 lODRIVERRfiH/OOOO LINEBUFSlZ£;*FFC4/0000 LISTDEFS/0000 KiBOl/OOOO 

M6809/0000 NEHTCB/OOOO iRBSIiDISKINFO/OOOO tRBSISTATE: IDLE/0000 tSC:BETPOS/0000 ISCBLK; OPCODE/0000 

SDLP/0000 JSD0S:VERSI0NNUi1BER/0000 SDOSHT/0000 «SECTORDB:DISKIMFD/0000 SYSTEMDEFS/0000 

iTCBiLNK/0000 iTEHP/0000 tTEtlPA/0000, TEMPX/OOOO »TIHEQUT:LINK/0000 USECONSOLEACIAASCLOCK/0000 

WMDAHFLOPPY/0000 MHPERSCI/OOOO WHSERIES2000/0000 :NE)!TCHAIN/0001 sTPC/OOOl 

:IIHF0RHAT/0001 »ALTERPROFILE:CPSES/000} IftSCIhSOH/OOOl »CC:DU!1PBUFFERS/000i . ICCB:ADBR/0001 CLOCK/OOOl 

DCB:LASTERR0R/0001 tDCBEDITFLASS:ESC/0001 tDCBEKCEPTsSEDIT/0001 tDCBIILSPLiPASE/OOOi 

tDCBILSH:ALPHAL0CK/0001 IDCBWELFLA6S:PREF/0001 JDPBiDVTYP/OOOl *DPBFLASS:HAL/OO0I tDVDAT: DEPTH/0001 

tDVTYP.DISK/OOOl ENV:CC/0001 *ERR;ATTENTIQ»/0001 IBHFDRHAT/0001 *IC;DESTROY/0001 

III1I7710S/0001 IODRIVERINIT/0001 IOPKDEFS/0001 IJUPITERII/0001 iLIST.VIRTUALFLQPPY/OOOl ILISTCLOCK/0001 

$LISTST0RA8EDEH0N/0001 HiSOO/OOOl QUTASPACE/0001 IPR0FILE.ADH3/000i iPRQFlLE.EPSQNLPT/0001 

iPR0FILE.6T100/000i *PR0FILE.H19/000i «pROFILE.MALLPT/000,l JPRQFILE.«ALVT/0001 

, iPR0FILE.RS232LPT/000i »PR0FILE.SQR0CiQi20/000i PROFILENUH.HALVT/OOOi IPROT:: BACKUP/0001 

tRBSISTATE: READINB/0001' IREALTIMECLOCK/0001 iREG:CC/0001 *SC:eETC0L/0001 ISCBLKsSLEK/OOOl 

ISDOS:LASTERROR/0001 STORAGEDEMON/OOOl ITEMPB/OOOl USEDEKQNASCLOCK/OOOl . VIRTUALFLDPPY/OOOl 

BAVEHATE/OOOl SJDCFDRHAT/OOOl 8DCNCYL/0001 NBCNTPC/OOOl WHFORHAT/OOOi :DRIVENUHBER/0002 *ASCII:STX/0002 

iCNFSjDEVICEDCBS/0002 DAHFLOPPY/0002 JDCBEDITFLA8S:READB/0002 tDCBIlLSPL!FREEZE/0002 »DCBILSa:CTLC/0002 

tDC8RE!1INDERS:CTLS/0002 tDCBHELFLABS: RETYPE/0002 IDPBsNEXT/0002 «DPBFLAGS: OUTPUT/0002 IDRIVER: CLOSE/0002 

tDRIVER:DISKREAD/0002 «DVDAT:NSPC/0002 »DVDAT:MSPT/0002 IDVTYP.STAPE/0002 

IENV:B/0002 IFCB:DIRLSN/0002 tIC:RESET/0002 «IOCB:CURLSN/0002 LCN:SnE/0002 NI1AGICFCB8/0002 

PERSCI/0002 RDSI:LSN/0002 IRDSI3TATE.-HRITINS/0002 iRE8:B/0002 *SC:8ETEQF/0002 *SCBLK:PAKAh8/0002 

ISECTQRDB:LSN/0002 ITCB: STACK/0002 TIHE0UT:FUSE/0002 »DCREftDCHD/0002 IASCII:ET){/0003 

CCB:TIHEOUT/Oe03 DCB:NAHE/0003 WVTYP.BT APE/0003 «ENV:A/0003 I1C!LOCK/0003 LSH:SnE/0003 

PROFILENUH.ADM3/0003 tRDSIBTATE:VERIFYIN6/0003 IRE8: A/0003 ISC:SETFILESIZE/0003 

tSDQS:C0NFIBURATIQN/0003 ilDCMRITECtlB/0003 tASCII; EOT/0004 CC8:DRIVE/0004 tCNFG:I0CBP0I»TERS/0004 

iDCBEDITFLAGS:IIRAP/0004 IDCBIILSPL: DISCARD/0004 iDCBILSB:OUTTO/0004 " ~ IDCBRE!«NDERS:CTLP/0004 

iDCBaELFLA8S:FLD»/0004 »PB:DEFaiDTH/0004 iDPBFLAGS:«RAP/0004 IDRIVER:DISKyRITE/0004 

IDRiyER!READA/0004 IDVDAT:NTPC/0004 DVTYP. CONSOLE/0004 tENV:){/0004 J IC: RELEASE/0004 

JREG:)(/0004 SC!6ETTYPE/0004 3CBLK:MRBUF/0004 , ITCB:C0ND/0004 JTIM£QUT:R0UTINE/0004 

*ALTERPROFILE:CPiDLES/0005 ASCII:ENB/0005 CCB:CYL/0005 DCB;NEnDCB/0005 tDPB:DEFDEPTH/0005 

DVTYP. PRINTER/0005 IFCB:DIRDISP/0005 liC:TEST/0005 IIOCBsBuFFERP/0005 " PROFILED. Hi9/000 

RDSI;SECT0RBASE/OO05 tSC:SETPARAMS/0005 ISDOS:SERIALNUHBER/0005 ISECTORDB: ADDRESS/0005 

WCRETRY/0005 : DCBNUhBER/0006 iALTERPRQFILE:ROviDISP/0006 IASCIi:ACK/0006 CCB:LASTCYL/0006 

tCNFG:NIQCHANNELS/0006 DCBPOINTER/0006 tDPBfFLA8S/0006 tDRIVER:DISKMAIT/0006 IDRIVER:ilRITEA/0006 

WVDAT:SCYL/0006 tDVTYP.SERIALOUT/OOOi - ENV:P/00Q6 PROFILEHUH.HARDCOPYVT/0006 iREG:PC/0006 

$SCBLK:«RLEN/0006 ITCB:PARAH/0006 iTIME0UT:DCB/0006 »ftLTERPROFILE:COLDISP/0007 JftSCII:BEL/0007 

IBOOTsPARAHSIZE/0007 CCB:STARTI0/0007 JCNF8:DSKByFFERPQQL/0007 CQNTEXTBLOCK: SIZE/0007 

iDCB:DRIVER/0007 IDPB:QUTT0/0007 tDVTYP.SERIALlN/000? iFCB:HLSN/000? JIOCBiFCB/OOO? IRDSI:FLIHK./0007 

SDOSsIOBLOCKPTR/0007 «SECTORD8sSnE/0007 tALTERPROFILEsCLLEN/OOOS ASCII:BS/0008 

iDCBEDITFLfiSS:PA8E/0003 IDCBIILLFLeS:CTL8/000e iDCBIILSPL:CDNTIKUE/OOOa ISCBRE!1INDER3:CTLQ/0008 

$DCBilELFLAGS:FLDE/0008 iDPBFLA8S:ftUT0NL/0008 $DRIVER;DISKSTATUS/0008 IDRIVER:READB/0008 

tDVTYP.PAROUT/0003 EKV:SIZE/0008. NDISKDCBS/OOOO NDRIvES/0008 NIOCHfiNNELS/0008 SCBLKsRPLEN/OOOB 

TCB: SCRATCHPAD/0008 TIHE0UT:SIZE/0008 »ALTERPR0FILE:CLSEQ/6009 tASCII:HT/0009 CCBiSTATUS/OOOv 

iCNFB:DSKP0DLSIZE/0009 IDCB:EDITFLA6S/0009 DC8:SIZE/0009 IDPB:l!LATEI/0009 , DSKINF0:NBPS/0009 

tDVTYP.PARIN/0009 II0CB!DRIVER/0009 NTitlEQUTBLOCKS/0009 NTIHEDUTS/0009 

PRQFILEm.HALLPT/0009 tRDSI: BLINK/0009 ISDOS: IOCBPOINTER/0009 ASCH:LF/000A tDCBsREHINDERS/OOOA 

IDRIVER:DISKCONTROL/0O0A »DRIvER:HRITEB/OOOA )IDVTYP.DUHKY/OOOA IFCB:FLAGS/OOOA SCBLK:RDBUF/OOOA 



HAL/6800 1.3F: 9E78 S5DSDRIVERS t« SDOS I/O drivers for BaveMate Jupiter U i6 1978 SOFTWARE DYNftHICS tt« 

01/14/03 11:39:33; Page 119,- Pom 1 Syjibols Sorted by Value 

lOJUPITER.ASlt 

ftBCII.'VT/OOOB ICNF8:ATTNCHECK/000B tDCBiWELFLABS/OOOB MINFOiNSPT/OOOB , BVTYP.CLOCK/OOOB 

iFCBsREFCQUHT/OOOB tlQCBsEQFFLAB/OOOB PR0FILENUH.RS232LPT/000B IRDShMODIFlED/OOOB 

SBOS:CLQCK/OOOB ASCII:FF/OOOC CCB:RESET/OO0C tOCB:lLS»/OOOC »BPB:TLPUTDEV/OOOC IDRIVERsCREATE/OOOC 

JFCBiHLCN/OOOC tIOCB:COLCNT/OOOC IRDShSTATE/OOOC *SCBLK:RDLEN/O00C 



iALTERPROFILE:CLIBLES/OOOD 

IIOCBjCURBYTE/OOOD 

IDRIVERiRENAME/OOOE 

♦ALIERPROFIlEiEEQLSEQ/OOOF 

JDPB:SETCOLORINS/OOOF 

»SDOS:lfflNTH/OOOF 

tCCsUNLOCKDISK/OOlO 

IBPBFLAGSiHCEDIT/OOlO 

JSCjGETFILEDATE/OOIO 



lASCIIiCR/OOOD *CNFS:I>EBU88ER/OOOD IDCBjCQLCT/OOOB IDSKirtfOil^TPC/OOOB 
RCSI:SECTOR/OOOD tALTERPR0FILE:EEOLLEN/OO0E tASCIhSQ/OOOE tDCBiCTLCCQUNT/OOOE 

tFCBsHCSIC/OOOE JSCBLK;1)ATA/000E , SCBLK:£ND/0OOE tSBOS:BAY/000E 



»ASCII:S1/OOOF CCB:ABQRT/OO0F tCNFe:BRIVERBASE/0OOF 



iDSKINFO:NCYL/OOOF 

jSPT/OOIO tASCIiiOLE/OOlO 
IDCBEDITFLABSsACTIVATE/OOlO • 
tBRIVER:DELETE/0010 
tSCiSETLASTBADLSN/OOiO 



*FCBiNCLUSTERS/OO0F 

, CCiBEVICESPECIFICOP/OOlO 

tDCBIILLFLSSrCTLV/OOlO 

«FILESYSTEHVERSI0S/0010 

»SC!6ETPR0F1LE/0010 



JASCIhDCl/OOU CCsDISHOUNTBISK/OOll, 



tCCsNOECHO/OOli ICCr9ETFiLEPR0T/001l 



«DCB:IILSPL/0011 

RBSIiCYLINBER/OOll 
ISB0S:STACKSMITCHED/001i 
JCC!8ET«APfiLS0RITHh/00t2 
JDRIVER: CONTROL/0012 
tALTERPR0F!LE:EE0LI»LES/0013 
tCNFG5lNTDISABLE/0013 
iCCiHULTISECTQRiiRITE/0014 
}DSKINF0jl1iBALL0C/00i4 

CC8:SETSEEK/00i5 



DSKINF0:HSPC/0011 
tSCiSETftCTCOL/OOIi 
JSDQSVERSIQN/OOU 

CCB:RESTQRE/00i2 
tDSKIKFOiHINALLOC/0012 



IFCBsFILESIZE/OOU 
»SC!6ETERR0RSTATS/00il 
IASCII:DC2/00i2 ICC: IDLES/0012 
»DCB5lILLFLGS/OOi2 
*IQCB:DRDSI/00i2 



tDCB:LINEBUFPTR/OOOF 

IRBS!:TRACK/OOOF 

tCCiECHO/OOlO iCC:SETFILEl)fiTE/001 

JDCBREMINDERS: RIP/0010 

SCiDEVICESPECIFlCOP/OOlO 
ISDOSsYEAR/OOlO TCB:SIZE/OOiO 
»CNFB:INTSETUP/OOil 
II0CB:L0CATEBF/001i 
*SC:BETFILEPR0T/0011 
ICC:SETFILESIZE/0012 
IBPB:SETBACKBR0UND/0012 

SD0S:I0INT/00i2 



iA3CII:BC3/0Ol3 ICC:HULTISECTQRREAB/0013 



*CC:P0SITI0NTOEND/0Oi3 



DCB:QILQUIESCEST/0Oi3 
iCC:SETACTBL0CK/0014 
tI0CB:NEXTBYTE/0014 

DPBiSPINIT/0015 



tCC:TABS/0013 
tA3CII:SC4/0014 



SB0S:RTI/00i5 *ASCII:SYN/0016 tCC:CLRDliTPUT/0016 
»DRIVER! RESET/0016 BSKINF0:HAPALGQRITHI1/0016 

ICCiBETREABTIHEOUT/0017 
luSKrNFQ!LQ82l!BPS/00ia 



iRBSIsSnE/0013 lALTERPRQFILEsSIZE/OOH • ■ 
»DCB:SCB/()0i4 tDRIVERsSTATUB/OOH 

ASCII:NAK/0015 ICCsCLRINPUT/OOlS CC:F0RMAT/0015 
ENViHINSTACK/0015 tFCB:PRQT/0015 HINSTACK/O0i5 
»CC:liAITC0NE/0016 iCNFB:INTENABLE/00l6 

tFCB:DAY/0016 »!0eB:BYTEC0UNT/0016 IASCIIiETB/0017 

JFCB;H0HTH/6017 lASCIi 5 CAN/0018 tCC:SETPRQFiLE/0018 . CC8:SEEk70018 JDRIVER: START 10/001 

iFCB: YEAR/0018 tmCBiCURLCN/OOiO SDGS: RESCHEDULE/0018 *ASCn:EB/0019 



iCC!ALTERPR0FILE/0019 tCI^FG:ISTRTI/G019 H'SKrNFO:NBPS!11/0019 iFCBsVERSIQN/0019 

iASCII:SUB/00iA ICCiffilTEEDlTLINE/OOlA DRIVER: PFRESTART/OOIA FCBsSIZE/OOlA tI0CB:DR8N/00iA ASCII:ESC/001B 



*CC:SETFIELDSIZE/001B 

SSOSiCLOCKTICKED/OOlB 
tCC:ACTlVATIQNCK/OOiD 
ICNFBilOINTPQLL/OOlE 
tIOCB:HRDSI/001F 
JDCBEDITFLASS: INTO/0020 
iSCBHELFLABS:ECHQ/0020 

CCB:VERIFYSECT0R/0021 

CNF8:TIME0UTLIST/O022 
iCNF8:VTPR0FILEB/0024 
iDCB:CALLERSCB/0026 . 

DCB:PR0FILE/002e 

DS!(IHF0:SEtT0RDB/0O2B 

SD0S:ERR0R/002D 

SD0S:ERRQRSftVE/0030 

DSKINFa:SEEKERRSTS/0032 ■ 

SDOS5ERROREB/0033 

DSKINFQ:ffiITEERRSTS/003i 

SDOSsCHECKS^RLEN/0039 
IBD0SJCHECKSCLEN/003C 
JBD0S:TABLEBRANCH/003F 

DSKINFOiSnE/0042 

FDDSTATEJ/0043 ffiC&RIVE/0043 

FDSEEKRETRY/0046 

SDOS:EnENSIONSIZE/0048 



CCB:READSECTQR/OOiB IBSKINFOjNLSH/OOIB «IQCB:RMN/001B 
lASCIhFS/OOiC tCC:SETPARAHS/00}C *CNFB:INTERRUPTSTACK/001C IASC1I:8S/001D 



DPBiSIZE/OOlD tI0CB:RgN/001D 
»DSKINFQ:NLCN/001E 
IASCII:SPftCE/0020 ' 
iDCSIILLFL6S:CTLB/0020 
iDSK!NF0:NBPC/O02O 



CCB:ffiITESECT0R/001E 
iASCIhUS/OOlF tCCsNQWRAP/OOlF 
JCNF8:TASKQi)EUE/0020 
*DCBREi1INDERS: INTO/0020 
*CC:BACKGRQUND/0021 



tASCII:RS/001E «CC:yRAP/001E 

»SMS:CURRENTASK/001E 

*CC!CQL0RIN8/0020 

IDCBIILSPL: INTO/0020 

iSD0S:KILLPR0QF/0020 
«I0CB!HRSN/0021 *SDOS:KILLUSERPROGRAM/0021 tCC!KlLLPRO0F/O022 

tDSKINFD:RANDRAP/0022 IOCB:SIZE/0022 »CC:KILLENABLE/0023 * CCB:TI!1E00TBLK/0Q2 
IDSKINF0:HAPLSN/0024 SDQS:STARTI0/0024 »CNF6:VTDEBUG/0026 
»DSKINF0:DIRFCB/0027 »SDOS:MITC0ND/0O27 ICNF6:HTPRIf!S/002B " 
SiDSk:INF0:HAPFCB70O29 »CNFGs¥TSIZE/002A SDQS:WAITEVENT/002A 

CCB:CURRENTSCB/002C ISC:8ETLINEFLASS/002C tDSKIfffO:fiADLSN/002D 
ICCB:SIZE/002E tCC!MRITEAN0»A!T/0030 ' DS!(INFO:SEEKERRCNT/0030 ISC:ATTEHTI0HCK/003 



ICC5SETTIMESHARE/0031 
ISC: SETT IHESHARE/0032 . 

BSKINFO:BRITEERRCNT/0034 
ISC:8ETDATACOUNT/0036 

SSKINF0:READERR3TS/003ft 

TICKSPERSEC0ND/003C 
IDCBEDITFLASS:HCEDIT/0040 

FDREADaRITE/0042 

FDDSTATE/0044 IBDCSIZE/0044 

INTERRUPTSTACKSIZE/0046 
IDCB:RIHSINSTQR£/0049 



ISC:STATUSCK/0031 

ICC:l^RITEBN0WAIT/0033 

ISC:SETLINEFLABSHINT/0034 

SS0S:CHECKRDLEN/003i 

DSKINF0:0PSC0UNT/003C 

UCB:XLATESTATE/0©3D 
iDCBnLLFLBS.'CTLT/0040 
*SM8:BL0CKK0VE/0042 
IDCB:RIN8INFETCR/0045 
IDCB:RIN6IfiDATA/0047' 

FDCYL/0049 '^ . ' F.DSECT0R/004fi 



ICC:SETEXCEPTIQN/0032 

ISC:ALLSTATUS/0033 

?SC:GETFREEC0yNT/0035 

DSKI!iF0:READERRCNT/0038 

!1EHSI'ZE/003C 

DSKINF0iERRLShi/003F 
IPROT::MRITE/0040 

WDEREADMRITE/0042 
ISD0S:ENTRYSIZE/0045 . 

FBRETRY/0047 FDSeiVE/0048 
IDCB:RIlilG!NR00H/004B 
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iOJUPITER.ASR 
FDCQ!1PLE«ENT/004B FDFIRSTSEC/004C ,' 

IDCB:RIN6IWLEN/004F Fl)NEnCHAIN/004F 

OUTBUFSIZE:»FFC0/0050 uUTBUFSnE:»FFC4/0050 

FBCCB/0051 »!)CBsSmGOUTDATA/0053 FDHftPALG/0053 
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!CYL/004D 



DCB:RINBINBASE/0041> 



FDHEADCHAm/004i) 



FDK2M0SNSPT/O054 

DCB:RIN8QUTBASE/0059 

FDHAP/005B FDSIZE/005B 
*DCB:TLDATA/0060 

LINEBUFSIZE:*FFCO/O0i4 
iERR:BADCI1DFQRHAT/00i6 
»DCB:DISPLA¥»IBTH/0069 
tDCB:CURSQRL0ST/006C 



tI>CB:RINSQUTR0QH/0057' 

FBK16H0BNSPT/0059 

DCB:RINS0UTTHRESH0LD/005D ■ 
»BCB;ILDATA/0062 

LINEByFSIZE:«FFC8/0064 

DCBiLINEBUF/0067 
JiERR:N0TENUFHEH/0069 
IDCB:R08/006I} JDCBiCQL/OOiE 



INBUFSIZE:$FFC0/0050 

OUTBUFSIZE:$FFC8/0050 
tBCB:RINB0t]TST0RE/0055 

FDK4H0DNSPT/0057 
»FDK32H0DNSPT/OO5A 

DCB:BEePC0UNT/005E 
JDCB:TLR00H/0064 
IERR:HARNINeC0HPILE/0065 
»ERR:CANTS0T0/0O67 
*DCB;BISPLAYDEPTH/OOAA 



INBUF31ZE!$FFC8/0050 
«DCB:RIN60UTFETCH/0051 
FMIHDDNSPT/OOSS 
FDKBMODNSPT/OOSB 
tDCB;RlNS0UTLEN/005B 
IDCB:LIEFLASS/005F 
iERR:FATALC0HPILE/0064 
iDCB:LIMESUFCOllNT/OOW 
tERR:ABNQRHALST0P/0068 
tDCB:EHDC0L/006B 
tDeB;»ELPOS/0070 



tDCB:REftDCQL/006F 
IDCB:R0WCT/0071 »DCB:REAI)AERR/0072 tDCB:FIELDEND/0074 IBCB:CTLCKILL/0075 ' iDCB:C0LQRIN6/0076 
$DCB:BACKGRQUND/0078 tBCB:NEMSTATUS/0079 DCB:LIHEBUFLEN/007A iDCB:ACTC0L/007B 
»DC8:ACTDISP/007C DCB:TLBUFFER/007D IASCII:!1ASK/007F iASClI:RUB0UT/OO7F 

IDCB:ILROQli/0080 iDCBEDITFLASS:KILLP/0080 »DCBIILLFL88:ESC/0030 *DCBILS8:HCFREEZE/0080 

ISP£CIALFN:NE«LINE/0080 WDCFATAL/0080 SPECIALFBiPQSN/008i *I)CB:EXCEPT/0082 

SPEEIALFN: CLEAR/0082 tDCB:PR0CESSID/OO83 SPECIALFN:EEOL/0083 tDeB:0PENC0UNT/0085 
»DCB:CALLERI0CB/0086 $DCB:FIELDBIBTH/0088 IDCB:REASPERIOD/008? *DCB:P0SNSl/008B 
IDCB:POSN/O08C tI)CB!P0SNIDLES/0090 »DCB:R0l!DISP/009i JDCBiCOLDISP/0092 tDCB:CLEAHSL/0093 

»DCB!CLEAR/0094 *DCB!CLEARII)LES/0098 »DCB:EEDL3L/0099 ' tDCB:EE0L/009A *DCB:EEQLIBLES/009E 
IDCB: IDLETRIBBER/009F tCCB: IDLECOUNT/OOAO DCB:DUTPUTTOBLK/OOA1 

DCB:TCB/00B1 DCB:TASKSTACK/00B3 DCB:RESET/0OB5 »CB:TLEL0SEI)EV/O0B8 



tSCB: ILSETDEV/OOBE IDCB:C0NTR0L/00C1 
DCBiCLEARIN/OOCA IDCB:CLEAROUT/OOCD 

IDCBiILPUTBUF/00B6 IDCB: IL8ETBUF/00D9 
tLINEFLA6S/OOF0 SYSDEPESDENT/OOFO IS¥SCALL*/OOFB 



:BPS/OiOO BDCNBPS/0200 
iERR:NQDEBUBGER/03EB 
IERR!NQHATCHFCB/03EF 
tERR:ILLEGALLCN/03F4 
iERR:LCNSASNTALL0CATED/03F8 
JERR:DISKt10UNTED/03FC 
JERR:ILLFlLESIZE/0400 
IERR:P»RFAILDISKF/0403 
iERRiCHBUSY/0407 
»ERR:REfiAI1EDEyiCE/040B 
«ERRiDIRECTQRYDA«AGEI!/040F 
tERR:SECTORSIZE2/'0413 

ERR:!)ISKSEEK/0417 
tERR:NLSN6E224/041B 
iERR:»RByFT00SKftLL/041F 
*ERR:Ni3TOPENTOCONSOLE/0423 
»ERR: ZER0S7ARTADBRESS/0427 
tERR:FILEALREADYDELETEB/042C 
*ERR5SELFTESTCKSUH/0430 
iERR:DUPLICATEKEY/0434 
tERR:SD0S«TALREADYRUNNINS/04CE 
*ERR:I0rNPRQGREBS/0771 
»ERR:TIHEDINPUTEKPIREB/077i 

BSKPOOLSIZE/OaiD 

DRIVERBASE/8400 

CL0CKCL0SE/842F 

CLOEKfflITEB/8448 

CL0CKREADA/848B 



tERR:B00TCKSUfiFAIL/03E8 

IERR:BADP0SITI0N/03EC 

iERR:N0I)EFAULTPR0BftAH/03F0 

iERR;BAl)FNAHESnE/03F5 

IERR:NDFREEFC8S/03F9 

lERR ! CAdTQPENMUSTCREATE/OSFl) 



iDCB:STATUS/00C4 
tDCB:TLPUTBUF/OOD0 

IDCB:TABS/OODC *DCB:ACTIVATION/OOED 
DCBiVTSIZE/OOFD 
IERR:E0FHIT/03E9 
IERR;NBPCT00Bie/03ED 
*ERR:FILEIIRTPRDT/03F2 
IERR:NEMFILEEXISTS/03F6 
IERR!»R0NBFILESYSTEH/03FA 
,IERR5N0tRRORHS6S/03FE , 



DCB!lNPUTT0BLK/00A9 
*BCE:ILPUTSEv/OOBB 
tDCBjISBEVICEREASY/00C7 
iDCB:TLSETBUF/00D3 

*BASICFLA6S/00F0 

SYSIlRQ/OOFD SYSPB/OOFE 
tERR:FILEIS0PEN/03EA 
tERR:K0CISKHAP/03EE 
IERR:FiLEN0TF0UNB/03F3 
IERR:N0DISKSPACE/Q3F7 
JERR:FILEINCREftTE/03FB 
IERR:BADFILENAt1E/03FF 



K/0400 «ERR:HCSICT00SHALL/0401 tERR!N0TEN0UBHP0QL/0402 
IERR:N0TAL0ASFiLE/0404 *ERR:BftDFILEVER3iOH/0405 IERR:CHTO0BIS/O406 



iERR:CL0SEl)/0408 
«ERR!BADLQADRECQRD7040C 
tERR:IBUFOVERFLOW/04iO 
IERR:SYSTEMCR0AKED/04i4 
ERR:DSKBRTPR0T/0418 



iERR:IlLE6ALSYSCALL/0409 
tERR:H0TEN0UGHRQ0H/040B 
IERR:PR0GRAHKILLED/04il 
ERR5BISKREAB/04i5 
»ERR:DI5KKRITEL0i:KEI/0419 



tERRiCLUSTERSIZELIfiITSFILE/041C »ERR:SYSCALLT00SH0RT/04iB 



tERR:N08UCHDEy ICE/0420 
ERR:DEVICE«0TREADY/0424 
IERR:N0SUCHPRQ8RAK/0428 
IERR:PRINTERNOTREADY/042D 
IERR:S0TIHEuUTBLKS/043i 
»ERR:BRANCHF ACTORS! ZE/0435 
FATUSHfiSCHANGED/04CF 



*ERR!DEVlCEERR0RED/042i 
IERRsTlHENOTSET/0425 

IERK:0LDFILEEnSTS/0429 
IERR:IMPUTTIHEQl)T/042E 
IERR:SERIALN0WR0NB/0432 
IERR:SBOSN0TRESISTERED/043& 



ERRSILLDEVICEOP/040A 
*ERRsILLLSK/040E 

ERR:DEVICETIHaOUT/04i2 

ERR:DISKMRIT£/041i 
IERR:S])0SCKSUH/04iA 
iERR:RDBUFT00SrtALL/04iE 
JERR:HUSTBEDISK/0422 
IERR:MQSUCHLUN/0426 
tERR:ALL0C0CLUSTERS/042B 
IERR:ENDOFHEBIlii1/042F 
»ERR:NQSUCHKEY/0433 
tERR : DECRYPT! OriKEVSDONTNATCH/0437 
tERR:ffiOH81)ISKTYPE/07iE 



IERR:SD0S«TPRIHSHISS!NG/04D0 
IERR;BUSYFQRAN0THERPR0CESS/0772 IERR:ftCTiyATIQNN0TINBUFFER/0773 tERR:ACTIVATI0NRECEIVED/0775 
IERR5PR0FIIEN0TF0UNIJ/0777 SERR:PRQFILEN0THftLLEABLE/0778 DESIREDPOOLSIZE/OSOO 



0KRTS/0C39 
SYSCALL I 0/8400 
CLQCK0PEN/842F 
CL0CK»B1/B45i 
CLQCKRAl/84Ai 



ERRdRRTS/0I)39 EDITDATE/1231 EDI7YEAR/i982 ' ffiCNSPT/4E34 
DEBUGSYSCALLHASDLER/B40? BEByBINTERR0PT/84i0 
CLQCKPFRESTART/e42F CLQCKSPRUNB/8431 
CL0CKP2/845F CLOCKREADB/8469 , CLQCKRBi/8475 
CL0CKSETTD/84B9 ' CLQCKGETTDi/84C0 



COBE/8400 
CL0CKI)RiyER/84!5 
CLOCKS! ATUS/B434 
CL0CKRB2/8484 
CLQCK8ETTB2/84Ci) 



HAL/6800 i.3F! 9E78 SDOSDRIVERS 
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CL0CKDATE/84B7 BCDT0ASC/84FE 

DIViDE60L2/853A 

FD«RlTE/8569 FDREAD/85&D 

MQCULONSPTB/SSAl 

BUILDMAPl/a5D4 BUILDHAP2/85D8 

HAP4/86A1 
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tBATE/84D5 

DIVIDE60L/8531 

FD8TATUS/85i6 

FDKAIT2/859F 
IBUILDHAP/BSCF 

HAP3/869C 

DISKINTSTARTPERSCI/86C2 



SEEK3, 1/8718 
DISKDQNEl/8758 
DISKSETCYLABD/8774 
BISKMRITE3/87A3 



DISKREAD4/87EF 



SEEK3/8710 

DISKDONE/8751 

DiSKAB0RT/876F 

SEEKB0NEJ/87A0 

DISKERR0RJ/87C1 

DISKD0KEJ/B7EC 

WAITFORINTERRUPT/8828 

PER3CI:RESTDRE/886C 

PERSCi! RESET/889 i 

PERSCl!READSECT0R/88B3 

PERSCI:HRITESECT0R.1/88E8 

DA«FLQPPY:ABQRT/88FF 

BAHFL0PP¥!SEEK/891B 

DAHFLOPPViREABSECTOR. 1/894F 

PERSCI:TIt1EQUT/8976 

DISKTIHE0UTi/89A9 

HDCF0RHATX/89I)B 

liiDC0KRTS/8A20 »DCiAITD0NE/8A22 



CL0CKTINE/850A CL0CKI1AKEl(X/8522 

BIVIBE50L3/8549 

FDREAB.l/85iE FBSTARTI0/857A 

i10DUL0«SPT/85A8 

B11ILBHAP3/85BD BUILBHAP4/85E9 

FDSETUP4/86B1 DISKISTERRUPT/86B5 
BISKINTSTARTDAHFL0PPY/86C7 DISKINTSTART/86Cfl 
SEEKH011E/8720 DISKSEEKERR0R/a735 BISKWPERR/873B 
BISKINTUNEKPECTED/875E CHECKBISKREABY/8762 



DIVIBEBY60/852E 
FBBRiyER/855i FDC0NTR0L/855B 
FDtiAIT,B0NE/858F 
FBSETUPBRIVE/85AF 
FBSETUP2/8iOD HAP}/a692 



HAP5/86A6 



BISKSETCYLABD. 1/8776 
DISKWRITE4/B7A7 

BiSKSAVEERRLSN/B?C4 

DISKC0HPLEHENT/87FB 

TESTFORSEEK/8831 

PERSCI 5 ISSUECOHtlANB/8875 

PERSCI :SETSEEK/8895 

PERSCIiREABSECT0R.2/88Cl 

BAHFL0PPY:STATUS/88EB 

BAHFLQPPY: ABORT. RTS/89i3 

BAHFL0PPY!VERIFYSECT0R/892E 

BAHFLQPPYiHRiTESECTOR/8952 

BAHFL0PPY:TIHE0yT/897B 

DISKTIfiE0UTlA/89B6 

»BC«RITE/89E5 iJDCREAD/89E9 
MDC!JAIT1/8A2B 



FBDISHOUNT/8564 
FBHAITl/8598 
FBSETUP1/85CB 
HAP2/8697 
B,ISKINTSETUP/86B9 
SEEK/86E5 SEEKD0NE/86FE 

BISKERRdR/8741 B1SKERRDR1/874B 
HAKEBISKREABY/876A 
DISK«RITE/8780 BISK»RITE2/8791 
DISKHRITE5/87B1 . SEEKH0HEJ/87BE 

DISKREAB1/87E1 BISKB0NEJ1/87E5 
;C0iJNTCQHI1ANB/881B 

B0SEEK/885B PERSCI; STATUS /8864 
PERSCI: ABORT. RTS/8890 
PERSCI :VERIFYSECTDR/88AC 
PERSCIjaRITESECT0R/88CF 
BAHFLOPPY! ISSUEC0HMANB/88F9 
BA11FL0PPY:SETSEEK/8918 
BAHFLOPPY!READ3ECT0R.2/8945 
BAHFLOPPY! 8RITESECT0R. 1/8973 
B1SKTII1E0UTERR0REB/8994 
MDCBRIVER/89C4 TOCC0NTROL/89BO 
«DCSETUP/8A02 
«BCF0RMSERW/eA56 



BISKREAB/87B4 

BISKCOHPL/8804 

COPYBCBTOCCB/8845 

PERSCI !AB0RT/S87B 

PEflSCIiSEEK/8897 

PERSCI:REABSECT0R.1/88CC 

DAHFLOPPY: RESTORE /88F2 

BAMFLQPPYiRESET/8914 

BAHFL0PPY:REABSECT0R/8938 

BAHFLOPPY s HRITESECTOR. 2/8965 

BISKTIHE0UT/897E 

BISKTIHE0UT2/89C1 

HBC0PSET/89EB HBCSETRETRY1/89F1 

iiBCRESET/8A36 «BCRESETLp/8A44 



MBCREABSERVJ/8A59 «BCCfiBFEED/8A5C 

lfflCCHBFEEBl/8A80 tMBCWRITESERV/SA95 

mCHRITE0/8AB6 liBCiSRITEl/8AC2 tiDC«RITE2/8ACE WBCyRITE3/8ADA 
WBC«RITEB/8BiA «BCiJRITEWIT/8B24 WDCMRITEi!lAITL00P/8B26 

»CHRITEilAITEXIT/SB39 SDCF0RHSERV/8B3B WCB0NE/8B44 

l^DCREftB0/8B65 WBCREABI/8B71 yDCREAB2/8B7B litDCREA&3/8B89 iBCREAB4/SB95 
yBCREABB/8BCB WDCREAC«AIT/8BB3 WBCREABKAITL00P/8BB4 

WBC0UTBATAL/8BE9 «DCQUTDATAl/SBF6 

TOCIiAITRTS/8ClB SBC»AITAVAILABLE/8C1E 

WBCMIT4INT2/8C54 NBCWAIT4INT3/SC57 

iiiBCPRDCST/8C34 WDCPR0CST0KRTS/8C8B iiBCFATAL0/8C8E 

yDCSAyESTATUS/eCAi SBCSAVESRITESTATUSi/8CCC 

WCeUIT/8CD6 HBC8UITREAB/8CE4 «BC8UlTi«ITHERR/8CE8 

ffiCSET4TRANS/8B01 ILPUtBEV:IFFC0/8B13 IRTSiiFFCO/SBlB 

TLCHECKREABY:*FFC0/8B25 ILPliTBEV:IFFC4/8B2C tRTS!$FFC4/8B34 

TLCHECKREADY;$FFC4/8B3E ILPUTBEV:*FFC8/8B45 IRTSs IFFC8/8B4D 



WBCSTARTI0/8A5C 
KBCMRITE»AniST/8A9B 
KBCMRITE4/8AE6 KBCMRITE5/8AF2 



MBCCHDFEEB0/8A6A 
roC»RITEL00P/8AAA 
«BC«RITE6/8AFE WBCiiRITE7/8B0A 



«BCSUIETi/8B31 

WBCREABLQ0P/8B5B 

WDCREAB7/8BB9 

roC0UTBATA/8BE0 

PCIHBATA1/8C15 



«DCQUIETERR/8B2F 

MBCREABSERV/8B4F 

WBCREAB5/8BA1 SBCREAD6/8BAC 

8BCREABNAITRTS/8BBF 
8BCINBATA/8C07 iSBCINBATA0/8C08 
»BCHAITAVAILABLEL00P/8C2i aBC«AIT4INT/8C3C 

KDCINTUNEXPECTEB/8C66 ffi'CINTERRUPT/8C&9 

WBCFfiTALERR/8C92 HBCFATAL2/8C94 JHBCCMBFEEB/8CA3 

IBCSAyEREABSTATUS/SCCB MBCSAVEREABSIATU31/8CB5 

l«BCTIHEB0UT/8CF2 !^BCTIHEBQyTl/8CF2 

ILSETBEV:IFFC0/8B1C 

IL8ETBEy:*FFC4/8D35 

ILSETBEV!$FFC8/8B4E 



TLCHECKREABY!*FFC8/8B57 KLATEIsABHS/SBCO 

SPECIftL0UTPUT!ABH3/8BCF SPECIALQUTPUT:ABH3P0SN/8BB9 

THISBPB/SBFB XLATEIsH19/8Ell 5(LATEl!Hi9.B/8ElB 



1(LATEI:ABH3.B/8BCC 



!(LATEl!H19.ESCAPE/8E20 

SPECIAL0UTPyi:H19CLEAR/8E7A 

lLBETBEySTftTUSFR0HACIA/8£A2 

iINTENABLE/8EC7 IINTRTI/SECA 



XLATEl!ADH3.B0NE/8BCD 
NEnBPB/8BFB ' tPRQFILECHAIN/SSFB 
KLATEl!H19.0K/8ElE 

SPECIAL0UTPUT:H19PUSN/8E5E 



«)(LATEl!Hi932/8E4C SPECIAL0UTPUT:H19/8E50 

SPECIAL0yTPUT:Hi9EE0L/8E84 C0L0RINSjH19/8E8E C0L0RIN6sHl9REVERSEVIBE0/8E9A 

IL6ETBEVICESTATUSFR0HACIAERR0R/8EA8 CNF6TABLE/8EBi INTDISABLE/8EC4 
ILLBEyiCEOP/SEBB ERRETX/8EE0 «PATCH8PACE/8EE4 

STACKUNSHITCHEDBEVICEP0LL/8F18 tVTi INTERRUPTPQLLCHAIN/8F1S BEiT0UTPUT;$FFC0/BF24 N0TQUTPUT:$FFC0/8F2C 
RTl!$FFC0/8F37 N0TBCBBR0P:*FFCO/8F38 N0TINPUT!$FFC0/8F3F N0INT!iFFC0/SF45 • 

60T0UTPUT!*FFC4/8F51 N0TQyTPUT:JFFC4/8F59 RTI:$FFC4/aF64 NQTBCBBR0P:*FFC4/8F65 N0TINPUT;5FFC4/8F6 
ffiINT:tFFC4/8F72 60T0UTPUT!tFFC8/8F7E H0T0UTPUT!$FFC8/8F86 RTI;tFFCB/8F91 

N0TBCBBR0P:*FFC8/8F92 N0TINPUT?$FFC8/8F99 N0IHT!$FFCS/8F9F STACKSi5ITCH£BBEVICEP0LL/8FA2 

WBCPQLL1/8F83 IBISKINTSERVICE/8FBF HBCPOLLNEn/BFBF PERSCIINTERRUPTHASK/8FC3 

BISKINTPERSCI.no/8FCF BAHFLDPPYINTERRUPTHASK/8FB3 BISKIKTDAMFL0PPY.N0/8FBF BABINTERRUPTCQyNT/8FE9 
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CL0CKDCB/8FEB iDEVICEfiCBS/BFEB 

DAY/8FF7 H0NTH/8FF8 

TIflE$!«imTES/9005 

DATE*: YEAR/9011 

CCB:PERSCI/9017 

.■DCB/92B6 ::/9321 

»DCCQUNT/932A HDCPO INTER/ 932B 

NEl(TDISKDCB/9377 

0UTBUF:*FFC0/93C6 

0UTBUF:iFFC4/94CA 

INBUF!*FFC8/956A 

NEnTIHE0UT/96C8 

INPUTT0BLK:tFFC0/9&l)O 

DCBNAHE!*FFC4/975E 

TCBSTACK;$FFC4/9892 

DlJTPUTT0BLKi$FFC8/9943 
JFCBS/99D9 IQCBS/9C7D 



m SDOS I/O drivers ior Uavefiate Jupiter II 
Syfflbols Sorted by Value 



10 1978 SOFTWARE DYNAMICS m 



NEXTDEyiCEBCB/8FEB 
YEAR/8FF9 JC10CKFRACTIQN/8FFA 

TIHE*!SECONDS/9008 DATE*/900B 



CL0CKBUFFER/8FF4 
CL0CKSTR/8FFB TIHE4/9002 
DATEJ.-H0NTH/9O0B 



DIViOBIVIDEND/8FF4 
TIHE*: HOURS/9002 
DATE*; DAY /900E 



BlSKINTDCB/9013 DISKIKTCCB/9015 

KB: DftHFLOPPY/9045 FDT I tlEOUTBLQCK/9069 

BDCINTERFACE/9325 PCDCBPQIMTER/9326 

WDCRETRYCNT/932D «Dt:iDCB/932E 



«DC0DCB/9377 «DC0STR/93BB 
ITTYBUFFERS/93C6 

INBUF!tFFC4/95iA 

LINEBUF!4FFC8/95BA 
tQUTPUTT0BLK!*FFC0/96CB 

TA3KQUEUE/9724 TCB!»FFC0/9724 



HDCTIfiEQUTBL0CK/93C0 

INBUFj$FFC0/9416 

LINEBUF:|iFFC4/951A 

DCBHA«E!tFFC0/9ilE 

TI«E0UTQUEUE/9i!.C8 



,TTYTCB/9724 



DCB J tFFC4/97i3 OUTPUITOBLK ; tFFC4/9804 



TCBSTACKiiFFCO/9756 
mPUTT0BLK!fFFC4/980C 



! CONTROLLER/9017 

:HEADCHAIN/9155 

«DCC0NTINUEPC/9328 

fflCi3TR/9372 DISi(DCBS/9377 

WDCTII1EDliTC0UNT/93C2 

LINEBUF.-$FFC0/946A 

QUTBUF!*FFC8/95iA 

SCB!«FFC0/9i27 TTYDC8/9i27 

TTYTI11E0l]TS/96fc8 

STACK !tFFC0/975B, 
TCBf$FFC4/9860 



STACK: *FFC4/9899 

IMPUTTQBLK:*FFC8/994B 

I0CBP0INTERS/9D8D 



BCBNAHE:$FFC8/989A 0CB:$FFCB/98A2 
TCB!tFFC8/999F TCBSTACKitFFC8/99Dl 



FDREST0RE/9DE3 INTERRUPTSTACKENB/9DE3 



HDCINIT/9E2C 



RESET: $FFC4/9E5A 
IINICV/FC03 IPUTCV/FC06 
VIADRB/FF40 VIADRA/FF41 
VIAACR/FF4B VIAPCR/FF4C 
Dfti1FL0PPY:PIACB/FFBi 
DAHFLQFPV:HDTRACK/FF85 
PERSCI:PIAC8/FFA1 
PERSChMTRACK/FFAS 
SDOS:VTCLEAROUT/FFBB 
SS0SiVTIL6ETBUF/FFC7 
3D0S5VTATTNCHECK/FFD3 
SDOS:VT0UTPUTINT/FFBF 



RESET :$FFC8/9E69 
IGETCV/FC09 ITESTCV/FCOC 
VIADDRB/FF42 VIASDRA/FF43 
VIA1FR/FF4D VIAIER/FF4E 
DAHFL0PPY:PIADA/FF82 
DA11FL0PPY:HDSECTOR/FF86 
PERSCI:PIABA/FFA2 
PERSCl:HDSECTDR/FFAi 
SDOS:VTTLPUTBUF/FFBE 
SDOS:VTEDITTASK/FFCA 
SDQSsVTINPUTTO/FFDi 
SDQS:VTDISPATCH/FFE2 



INTERRUPTSTACK/9D9D 
CL0CKRESET/9E35 
VTDRIVER/A600 SDOS/BEOO 
*IM1DV/FC12 tPUTDV/FC15 
ViATilL/FF44 yiATlCH/FF45 



STACK: *FFC8/99D8 
DSKBUFFERP0QL/9DE5 



INTSETUP/9D9D 
RESET: IFFC0/9E4B 
JINTERRUPTTARBET/BE15 
ST0RAGEDEH0NVIA/FF4O 
yiATiLLA/FF4i tVIATlLH/FF47 



VIADRAF/FF4F DA«FL0PPY:PIACA/FF80 



DAHFL0PPY:PIADB/FF83 
DAMFL0PPY:HSDATA/FF87 

, PERSCI:PIADB/FFA3 
PERSei:HDI)ATA/FFA7 
SDOSiVTTLBETBUF/FFCl 
SDOS:VT«ALLPT/FFCB 
SB0S:9TQUTPUTT0/FFD9 

«SDQS:VTINTDCB/FFFE 



DAHFL0PPY:l«DCHDSTS/FFe4 

PERSChPIACA/FFAO 

PERSCI:SDCI1DSTS/FFA4 

SI0S:VTCLEARIN/FFB8 

SB0S:yTILPLiTBUF/FFC4 

SDQSiVTHALVT/FFDO 

SDDS:VTINPUTINT/FFDC 



1170 SyfflbQJs. 
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lOJUPITER.ASM 



III No Errors. 



